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Pages 3~119 through 3-121; 
Added REDUCE OPERATOR explanation 
MARK VI.1 CHANGES 
Page 1-1 to 3-174 B1700 changed to B1800/B1700 throughout. 
Page 2-5 Added INDEXED LOAD FIELD ADDRESS (ILFA) Op-code 
to Load Operators Instruction Set. 
Added LOAD ARRAY FIELD ADDRESS (LAFA) Op-code 
to Load Operators Instruction Set. 
Added LOAD FIELD ADDRESS (LFA) Op-code to 
Load Operators Instruction Set. 
Added LOAD FIELD ADDRESS FROM PREVIOUS (LFAP) 
Op-code to Load Operators Instruction Set. 
Page 2-6 Added REFER (REFR) Op-code to Load Operators 
Instruction Set. 
Page 3-64 Added INDEXED FIELD ADDRESS (ILFA) Operator to 
Load Operators Section. 
Page 3-69 Added LOAD ARRAY FIELD ADDRESS (LAFA) Operator 
to Load Operators Section. 
Page 3-70 Added LOAD FIELD ADDRESS (LFA) Operator to 
Load Operators S,ction. 
Page 3-72 Added LOAD FLELD ADDRESS FROM PREVIOUS (LFAP) 
Operator to Load Operators Section. : 
Page 3-78 Added REFER (REFR) Operator to Load Operators 
Section. 
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3.8 Added note 
Sec 3.34, 3.35, 3.36, 3.37, 3.38 Changed 
Descriptor format to allow variable 


lengths. 

Sec 3.36 Added second version of operator- 
CDFM 

Sec 3.45 Added second version of operator- 
RTRN 


Sec 3.63-3.67, Added new operators SVST, 
HMON, OVLY, PRFL, SLL 


1.1 Added order of stacks in S-Memory. 

1 Changed PPS to show Page #. 
Sec 2.1 Added 13 bit operators. 

2.4 Added Page # and changed segment 

## size. 

Sec 3.0 Added new operators. 
Sec 3.5 Changed BIN result to a type BIT. 
Sec 3.9 thru 3.32 Changed to 3.10 thru 3,33 
3.9 Added SS1l, 
Sec 3.14 DESC: Changed OP code. 

3.16 L: Stated values < 24 bits in 
length are loaded self relative 
Sec 3.18 AL: Corrected page table entry 

figure. l=Memory, O=Disk. 
Sec 3.50 thru 3.65 Changed to 3.67 thru 3.8 
Sec 3.50 thru 3,66 Added EOI, XTEI, CNTR, 
CXIT,SLL,SSCH, TVEC,IVEC,SSD,SSWP, 
UBLK, DTKN, NTKN, DBLK, XFRM, HASH: 
Sec 3.54 SSL: Changed from 3.67 
Sec 3.74 LSP: Added EV, CS, NS, DB variants 
Sec 3.84 Added PADR operator, 


Translation to upper case and lower case. 
Major revision, 

Renamed B1700 SDL S-LANGUAGE 

Page 1-14: Changed DISPLACEMENT on Figure | 


to 12/16/20 

Page 2-7: Added REDUCE to SEARCH & SCAN 
OPERA TORS 

Page 3-108: Added REDUCE to SEARCH & SCAN 
OPERATORS 
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GENERAL 


This product specificaticn wilt describe the basic components and 
operators of the B81@A@CO/B170C SOL SwLanguagee including its STACK 
MECHANISM» DATA DESCRIPTORS» and CODE and DATA ADDRESSES. After a 
preliminary discussion of the structure and operation of the 
S“Machiner its operators will be explaired in detail. 
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COMPONENTS OF THE S*MACHINE 


Re Dee EBB EP BE TBE RS ws | 


The SCL 


1. 


30 


Se 


S“-Machine is composed of the following basic elements: 


Base~limit area 


This is the memory area for program cata. It is the cently 
area that is directly addressable anc thus mecifiable by 
SDL S~ops. This area is bounded by base and Limit 
registers. ALl "absolute" data addresses in the S«machine 
are expressed as a bit cffset from the base register. For 
addresses to be atsotute in fact» a pregram*s base 
register must be zerc.e. The area is broker intc two 
divisions; static memory (from base register ta e¢yramic 
memory base) which is occupied by the SCL stacks» and 
dynatic memory (from dyranic mamcry base to the Limit 
register) which is used for virtual data memory» 1.2€2 SEL 
paged array page tables end resident pages. | 


Run stucture nucleus 


This contains information used by the PCP ana SOL 
interpreter to implement an instance of the S=machine, 
1e@e a running SOL procgrem. 


Code segments and segment dictionaries 


Cede Segments are virtual as in the other machines» but 
the Code Segment Dictionary is itself segmertede 
correspording toa the pégemsegment concept in the SOL 
Language. Each entry in a Master Segment OCDicticonary 


represents apage cf segments in the source program and 
points to a sub-dictionary with the ertries for those 
seamentse The Naster Segment Dicticnary is 


nonwovertlayables the sub-cictionaries may be cvertlatic. 


File infcrmation blocks (FI8's) and FI2 otcticnary 


These appear in Cvirtual) memory» one FIB per open file in 
use by the running orcgram» used by the system “for 
input/output operations. 


Recisters 
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These may be either 


decendinga 


and number of registers important only to the SOL 
interpreter. Logically» they consist of the next 
instruction pointer (pager segments ana cisplacement )> 
the current texic Level» and the stéck top peirters for 
all stacks. Current LL and the DISPLAY stack pointer are 
the Same register. in registers is enough 
information about the stacks to check fer stack 
overflows. Underflows are not detectece Registers are 
initialized from the scratchpac area of the opregram 
farameter olock in the code files. (See MCF reference 
manual). This area has the following format in SDL code 
files: 
i SCRATCHP AD» 

2 FILLER BITC48) >» 

2 PPS.S8SASE BITC2Z4)» 

2 FILLerR BIT(24&)» 

2 ES.BASE BIT(24)» 

2 ES.PPS.BITS BIT(24)» 

2 VS.BASE BITC24)>» 

2 FILLER BITC24)» 

2 CS.*BASE BIT(24)>» 

2 CS.BITS BITC24)» 

2 NS.BASE BITC24)» 

2 FILLER SITC24)» 

2 DISPLAY.BASE BITC24)>5 , 

2@ FILLER BITC4)» 

2 PROFILE-.FLAG BIlici)e 

2 FILLER BITC19)» 

2 VS.BITS BITC24)» 

2 NS.BITS BITC24)» 

2 €S.81TS BITC24)» 

2 PPS.8ITS BITC24)3 


in hardware 
on the state cf the S-machine. 
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in wemrory 


The exact format 


See the MCP Reference Manual fer a more general discussion 


of code files» 


and 


run structures» 
the various dictiongéries. 


to all the B1800/BL70C S-machines. 


rake 


use of data segments and 
implementing virtual date via an SOL 


file 


data 


informaticn 
These concepts are 


segment 
intrinsic 


biccks» 


cicticnary >» 
insteade 


ccmmon 
Note that SOL does not 
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THE BASE@LIMIT AREA 


The space is divided as sho 
indicating the direction cf 


KEREKEKEREKKEKKK ERK EK KKK tt 
* & * 
* * * 
*VALUE NAME *«DISPLAY*CONTR 
*STACK STACK*STACK *STACK 


x ae) qse * ==» & = aw 
* *® & 
* * k 


RHUKRKKHEKEKKKEKEEKEKEKEKEEKEAEKKE KK 
* 
® 


keke BASE.REGISTER 


FIG 


VALUE STACK 


NAME STACK 


DISPLAY 
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wn in the diagram belows with the arrons 
growth. 


KKK KKEKEKAKKKE KE KEK KEKEKEAAKKKKK KKK 


* « D M & 
& * YE e., 
OL*eEVALUATICS PROGRAM* AN M & 
*STACK STACK* A O * 
> * em) ¢-° « MR * 
* * T Y ® 
& « C te 


KW RMR KEKKEKKEKKKEKKEKEKREK KKKKKKKKEKKK 
* 
« 


LIMIT REGISTEF «ex 


URE —[.1 -SOL STACKS 
Entries are values of cata items» 
arbitrery in Lergth»e the 


cheracteristics of which are kert in 
descricrtors itn the NAME araqg EVALUATION 
stacks. 


Entries are DATA CESCRIPTCRS» 48 bits 
in tengthe one descriptcr fer every 


data identifier which is currently 
active (not necessarily acdressaole) in 
the crogram. The descriptor fer an 


array is 96 bits long» cccupying txe 
NAME STACK entries. 


The NAME STACK is divicec irtc stack 
frames» each frame containing the 
descricptors for the names cdeclarec in 
one invocation of & procedure. Not att 
of these stack frames centain 
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descriptors which are currently 
accessible. The display cortains 
pointers into the NAME STACK, one 
pointer for each Lexic Levelt less than 
or equal to the current Lexic Level. 
Each pointer locates the base of the 
frame for currently acoressable names 
at that level. These entries are 32 
bits long. For further cdiscussicn of 
the cisplay mechanism» the reader 
should consult literature on the 
implementation of ALGOL 60. 


Here ere the NAME STACK pointers which 
locate the stack frames (fer every 
active procedure. Each time a prececure 
Which requires local cata cr parameter 
allocations», (ie@e» recuires space on 
the NAME STACK) is entered a new entry 
is pushed orto the CCNTRCL STACK to 
point to its NAME STACK frame.w Since 
the VALUE STACK contairs the cata 
associéted with NAPE STACK cescricrtcrs,s 
it too is divided into frames and the 
base of each frame is recorded ir the 
CONTROL STACK as it is aliccatec. In 
addition to these two pointers» each 
entry contains the Lexic Level of the 
calling procecure anc the Lexic Level 
of the current entry. These are used by 
the S-<Machine to maintain the DISPLAY. 
The fermat of a COATRCL STACK entry is: 
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RHR KEK KEK KEK EK KEKE E KEKE KKK KE KRKREKAKEHEKEKEKEKEAREKEEKE KEKE KEKKEKKKEKKKEK 


& * a ® re 
* NAME STACK POINTER * EXITEC * ENTERED «© VALUE STACK POINTER * 
rs : * LL a LL th * 
* me Py te * 


REET KK KKK EERE KEK KHER KER RER KEK KEKE RAE RKAKKEKE KEKE AKEKAKE KK KKK 


20 BITS 4 81s 4 BITS 20 EITS 


FIGURE I.2 CONTRCL STACK ENTRY FCRMAT 


EVALUATICN STACK The EVALUATION STACK is used tec holtd 
data cescriftors fer the evaluaticn of 
expressions (expressions are compiled 


into reverse epolish strirgs). It as 
also used to build acttal parameter 


descriptors prior to their being 
transferred to the NAME STACK fcr a 
procedure call. Space for data curins 
expression evaluation 1s atlocated on 


top of the VALUE STACK which ts.kept up 
to date as descriptors are cushea on 
and popped off the EVALUATICN STACK. 


PROGRAM POINTER STACK With the exception of the cycle 


operator used fer Lcocping»e att 
transfers af contrecl in the SCL machine 
are cone via call-type operators. The 
next instruction pointer is savec for 


subsequent return by pushing it cnto 
the PROGRAM POINTER STACK. The format 
of an entry in this stack is: 


EKREEKKEKKEKKHKEKEKKEKKEKEKKEKEKEKEKKEEEKREKEKAKKKKEKKKEKEEK 


& * « * 
* SEGMENT * PAGE * . DISPLACEMENT * 
* * & & 


RHEE KEERKEKKKKRKEK KEKE KEEKEKKEKAEKEKKARAKKEKEKEKKKK 


6 BITS 4 BITS 22 BITS 


FIGURE I-3 PROGRAM PCINTER STACK ENTRY FCRMAT 
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DATA CESCRIPTORS 


Simple (scalar) descriptors are 48 bits itn length» with the 
fcellowirg fermat: 


RAK KKKEKEKKEEE KKH HH KEKE KERKEKKKAKEKREKEEKRAKKEEAKEEKKAKKEKKEKKEK SE 


* * rs * 
* TYPE * LENGTH & ADDRESS * 
& * & * 


REE E RARE KKK KEKE KKK RENEE KEKE KR AKKEKKEKKKKKKKKEK 


6 BITS 16 BITS 24 BITS 


FIGURE I[.4 SIMPLE DESCRIFTOGR FCRMAT 


The address is specified as a bit offset from the base recister 
(which is also the base of the VALUE STACK). The tength 1s 
expressed in bits» regardless of the tyne. 


OQne of the tits in the type field indicates whether or ret this 1s 
an ARRAY DESCRIPITGR. when this bit is cn» an edditioral 48 bits of 
infcrmaticn is appended giving the follcwing formats 


EKKCKEKKEKKEEKREKEKEKEKEKEEKKEKEHEKKEKKKHERKREKREKEKEKEEKEKAKKKEKE K 


& & ry * 
« TYPE * LENGTH OF * ACDRESS CF * 
* * ENTRY & ARRAY * 
* x & * 


KRKEKEKKKEEKCKEKRKEEKKKKKHEEKKEKEKKEKEKKEKEKEKEEKRAMEKEKEKAK KKK EKSE 


* * * * 

* PAGE * LENGTH BETWEEN * NUMBER (CF * 

*SUBSCRIPT« ENTRIES * ENTRIES * 

* SIZE * * * 

* * * * 

HK HK RIK IK KR KKK KEK KKK RE RE RHI RRR KKKREKERKEEEKKCEKKEAKKEKKEKK 
8 BITS 1¢ BITS 24 BITS 


FIGURE I-5 ARRAY DESCRIPTOR FCRVAT 


The Page Subscript Size is only used when the PAGED ARRAY bit is on 
in the type field. It specifies the number of bits to shift an 
Array Supscript to obtain the ccrresponding Fage Subscript (Page 
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sizes are always a power of two in SOL). 


The length between entries is the difference tetween the adcress of 
one element and the address of the previous element. This must be 
greater thar cr ecual to the tength of one entry. 


The Type Field of a descriptor has a single format» even though 
some bits are not meaningful in all contexts. 


C => selfr-relative 
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RHEE KEKHEAEKKEEKKKKEKEKEKEKKKEKAKAKEKKRKEK 
* * * * x & bd * & 
* QO «© JY & @ & 3 «& hk &w& 5 & & & 7 & 
* * x & *« * & * x 
KEKE KHEKREKKAREEKEKAEKHHKAKAKKKAAAKEK 
* * « * * * * * 
* * * , ae * * * & 
* * * * kkk ke * teeze 1 => Length VARYING(*) 
* * «x & « «x 
* x *« * * & 
* * * * * kee 1 => PAGED array (bit 2 must 
* * * * * also be on) 
x * * * * 
* % * * kee data type: OC => BIT 
_* * * * O01 => FIXED 
® sa * * 10 => CHARACTER 
* * * * 11 => type VARYING(*) 
*« & « * 
* * ss kee 1 => contiguous array i.@ee length between 
* * * elements = tLength of one element. (bit 
* * * 2 must also ce on.) 
* * x 
* * kxk J] => array 
* * 
* eee 1 => non-self-relative Crust be on if bit 2 is on) 
* 
* 
x 


**k namesvalue bit 1 => value 

C => name 
(used only when the cescrigptor 
is on the EVALUATION STACK) 


€*) Only used in the type field of in-line 
descrictors which are arguments of a CCFC 
operator and in the argument to a RINC operatcr. 
The COFC operator atso uses BIT 6 in a differert 
ways it indicates a varying array bounce Invmlire 
descrirtors for other cperators use 8IT O to 
indicate the presence of a filter fiela. See 
IN-LINE DESCRIPTOR FORMAT. 


FIGURE 1-6 DESCRIPTOR TYPE FIELD FCRMAT 


1-10 
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khen the data itself is 24 bits or tess in tlergth» it may be 
contained cirectly in the address portion of the Gescriptors thus 
requiring less storace. In this case» the descriptor is saic tc be 
selfrrelative and the nonsselfrrelative bit is of f.- 


The use of the NAME-VALUE BIT is to distinguish» in the EVALUATION 
STACK» between descriptors which had an associated value lcaced on 
the VALUE STACK when they were pushed on the EVALUATICN STACK» and 
those which cid ncte The purpose is to signal that @¢ data item 
should be cut back from the VALLE STACK whenever this descriptor 
is cut back from tha EVALUATION STACK. The bit can only be set in 
ron-self-relative descriptors. 


ar it 
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PAGED ARRAY DESCRIPTORS 


then the PAGED bit is on in an @rray descriptor» the acdress field 
cf the descrictor does not point directly to the array» but rather 
is initialized to zero. An array Load cpoerator CALA» AL) will then 
detect the first access to the array ard invoke the SOL virtuat 
memory maneger to buitd a page teble in dynamic memory. This table 
will be non-overlayable ana the descriptor address fietd will be, 
set to the page table address. The tatle conteins ore entry per 
array page» each with the format Fetow: 


ERE KKKKEKKE KKK KHE KKK KKK EKKKHERRAKKEKKKRERKEKKKAEKKESK 


* * * 
* STATUS * ADDFESS . * 
* * & 


KKK KK KKK KK IKK REE KR RK KEKE MERKKEAKKEKKEKKEKEK 


4 BITS 24 BITS 


FIGURE I.7 PAGE TABLE EATRY FORMAT 


L=iZz 
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bit 0 presence bit 1 => address is base relative menory 
adcress 
0 => address is disk address 


bit 1 to be read only 1 => the next time this rage 15 
roiled out, turr this bit cff 
and bit 2 one 


bit 2 read only i => this page may te cvertaid 


without rellirg tit out to disk. 
bit 3 unused 


Ar address field of zero indicates that this is a previcusly 
unaccessed page and may be createc without neeo for a rellin. 
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DATA ADORESSES 


The SsLanguage addresses data via descriptors on the NAME STACK. At 
any roint in an SOL program every accessible data item nay be 
cescribed by the Lexicographic Level at which it was ceclarec and 
its erdiral tlocation (cccurrence numter) within the ceclaration 
section. at that level. A date address» thense consists of these twe 
numbers «hich uniquely tccate a descriptor in the NAME STACK. 
Addressing is dere by using the CISPLAY to tccate the NAME STACK 
frame corresponding to the requirec Lexic tCLevel- ano the 
occurrence number to locate the cescriptor withir that frame. For 
ccmpactness» data addresses have a type field which incicates the 
sizes of the cther fields» as indicatea below: 


KRKEEKEKEKEKKEKEKEEKEKE KKK KEKE KREKEKKAKEAEKEKAEEKEKEKEEEKEKEKEKEKESEK 


k * * & 
*TYPE * LEXIC LEVEL * OCCURRENCE NUMBER * 
x * , * ® 
PEC ECSICTICTSCTICLSI CSAC SCLCTCCCLCCC CC CCST CCT TT: 
2 BITS i/4 BITS 5710 BITS 


FIGURE T.@ DATA ADCRESS FCRMAT 


TYPE LEXIC LEVEL BITS CCCURRENCE NUMBER BITS TOTAL e@iTsS 
00 4 ic 16 
01 4 5 il 
10 1 1¢ 13 
11 1 5 8 


kKhen only one bit is used for Lexic Level» 0 means Lexic Level 0 
and 1 is taken to mean the current Lexic Levels whatever it may 
be. 
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COOE ADDRESSES 


Cede addresses appear as arguments of operators which effect 
transfers of control. They are divideo into three parts? the page 
number which selects the segment dictionary page» the segment 
number which selects the segment dictionary entry within that 
pager and the displacement which specifies a hit offset within the 
segmente For compactness» these numbers are éencoced in different 
fiela sizes depending on a type field. 


RRR RRR KKK KKK RK K KK KH KKK EKA AKEKKAEKEKEEKKEKEKEKKKKKKK 


x x « k *% 

* TYPE «* SEGMENT * PAGE te DISRLACEMENT rs 

* t * * x: 

REAR KKKEKRERKK KEKE EEK KEKE KK KEKE EEK EKER KEKE KEKKEKKKKKK KK 
3 BITS 0/6 BITS 0/4 B1TS 12/16/20 eITS 


FIGURE 1.9 CCDE ADCRESS FORMAT 


TYPE SEGMENT BITS PAGE BITS DISPLACEMENT BITS TCTAL BITS 


eee ane@eeweoeaeaew @ eee vee Va aaewee ese FT SF SF BPewanbiws = «2 Oe Oven ananeasesenneaew awauwqdauas a 


000 CURRENT CURRENT 12 15 
001 CURKENT CURRENT 16 19 
C10 6 CURRENT 12 21 
011 6 CURRENT 16 25 
100 € 4 12 25 
101 E 4, 16 29 
110 6 4 20 33 


111 NULL ADDRESS 


The Null Accress (Type 111) is only used by the CASE cperator and 
the length of the other fields is the same as the length of those 
fields in the other arguments to the case. The other fielcs are 


not used and are ail zero. 
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CONTROL STACK MECHANISM 


* * & * * 
* * . * * 
* te t * & 
* t * « * CONTRCL 
* * * * * STACK 
* « * * * 
& & * *« * 
* *& * * & 
* 20 Bits * hk & 20 Bits * 
ke 2 ee ee eo eee 2 eee ct = *&§ = kK B@aewewvsmawnnwwantrera =—- &k& 6 xk «* 
* NAME STACK POINTER®* * * VALLE STACK POIKTER* * 
REAR KKKEHE KEKE KEK KKK EK KEK KEK KEKE EEK KER KKEKEKKKEKRKK K *& 
k * * 
‘ x x x 
EXITED LEXIC LEVEL««« eee ENTERED LEXIC LEVEL * 
7 CONTROL 
é STACK 
PCINTER 
CURRENT COATRCL REGISTER 
20 Sits 4 Bits 4& Bits 20 Bits 
RAKE KEE KER EKER KEE REE EEE KE HK KK RK EEK ERE KEKE ERK KEKE RKEKKKEKEKKKKKKKEEKE 
*k * & * * 
* CURRENT NAME STACK PTR« * * CURRENT VALUE STACK PIR * 
* * * * * 
KEKE EEKE KK ER KKK KE RK KKE EEK KC REAR KEK EEK KEKE KER KEEKEKEKEKEKRKEAEKKKERKEKEK 
* *& 
* **FILLER 


CURRENT LEXIC LEVEL«««« 
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The following SOL declaration is used by algorithms shown unoer the 
cperators which affect the CONTROL STACK. 


DECLARE 

O1 CONTROL.STACK (CS.SIZE) BITC48)> 
02 CS.NSP BITC2C)>» 
02 CSeEXITEO.LL BITC4)> 
O02 CSeENTERED-LL BITC4)>» 
02 CS.VvSP BIT(20)> 

O1 CURRENT.CONTROL BITC48)> 
02 CURRENT.NSP | - BITC20)» 
O2 CURRENT.LL BITC4)> 
G2 FILLER 7 BITC4)>» 


O2 CURRENT.VSP BIT(2Cc)>» 


CCSP» TCSP) FIXED> 


CSP 2=03 
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The SOL operators that use the COATRCL STACK mechanism are: 


MKS 

CDFM 
CCFC 
MKU 

EXIT 
RTRN 
RINC 


XTEI 


MARK STACK 

CONSTRUCT DESCRIPTOR» FORMAL 
CONSTRUCT DESCRIPTOR» FORMAL CHECK 
MARK STACK AND UPDATE 

EXIT 

RETURN 

RETURN FORMAL CHECK 


EXIT» ENABLE INTERRUPTS 
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FCR CONSTRUCT DESCRIPTOR OPERATORS 


SIMPLE DESCRIPTOR 


8 BITS 6/17 SITS 6/17 BITS 


KEK KCK KKK KEKEKEKE KEK AKER KAKRKEKEKRAKKKRAKKEKRAKEK 


* TYPE * LENGTH * FILLER * 
Ro RK REE E RR KK KEK KE A KICK 
" 


exe OPTIONAL 


Netes: 


1. The filler option is present only when bit 0 of the 
type field ts on (€=1). 


ee Bit 2 of the type field is off (=0). 
ARRAY DESCRIPTOR 


8 BITS 6/17 BITS 6/17 BITS 


KEEKEKKEKEKEEERAKEKKEEKKKEKKREKEKKKEEKEEKKEKKKKKEEKEEEAE 


* TYPE * LENGTH CF ENTRY * FILLER * 
HIT TR TOI TKK RIK RIK KER KEKE KR EKKKEEKK C0 
* 
CFTICNAL 
* 
TESETCSCCSTCSCSCSCSCOVCOCTOCCCoCCC. ES. 2 


* * 
6/17 BITS € 81TS 6/17 BITS 
RO OI SO RRO RR RK tk Rt Kk 
* LENGTH BETWEEN * * NUMBER OF ENTRIES * 
Bt AR TK RETR REE KI KERR ERA KEE HK 
* 
* 


zx*« For paged arrays» this is the 
number of bits of the subscript 
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Notes: 


Ze 


36 


neeced to ecbtain the page 
subscript (See AL: Array Load). 


The filler option is present only when cit 0 of the 
type field is on (=1). 


The length between cption is present only when bit 
three of the type field is off (=0). 


Bit two of the type field is on C€C=1). 


The page subscript size field is present only when 
bit six of the type field is on. 


If bit six of the tyre field is cne then. bits zero 
and three witl oe off. 


The fields marked "€/17 BITS" are encocec as fcllcws:; 


First Bit Meaning 
0 5 bits follow 
1 16 bits follow 
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USE OF THE EVALUATION STACK 


Many cf the SCL S~ops take operands from or leave results on the 
EVALUATION. STACK. In factr only the descriptcr of the crerard is 
cn the EVALUATION STACK itself wrile the data» that is» the value 
cf the operard» may be in the descriptor or elsexhere ir the 
base~limit area. Conceptually» hewevere it is an operand with 
which the S-cp is dealing. There are two classes of cperancs or 
results which may te on the EVALUATION STACKS: 


Address operands: 


The descriptor is a pointer to the value of a declared 
cata item. The descrirtcr on the EVALUATICN STACK is 
nen=selfrrelative and its namex~vatlue bit is eff. This 
tyre of operand is sperepriate for use as the cestiration 
cf an S-cp which moves déta. 


Value operands: 


There are two classes of value operancs. 
Self-relative: 


The descriptor on the EVALUATION STACK 15s marked 
selferelative and its namervaltue cit is cff. 
Instead of the égddress field cf the cescrirtcor 
being a pointer to the cata» the data itself is 
contained in the address field of the descriptor. 


Non-eselfrrelative: 


The descriptor cn the EVALUATION STACK is” rarked 
non-self-reletive anc its naemesvalue bit 15 one 


The data is on top of the VALUE STACK» tocatec by 
the address field in the descriptor. When this 


type of operand is removed from the EVALUATION 
STACK» its value is removed from the VALUE STACK 
as well. 


Value operands are temporary values és opposed to actual 
vartables of the program. 
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A particular Sop often reaquires that its operarcs be oaf a 
particular class. it does not make sense» for examrplere for the 
destiraticn cperand of a STOD (store destructive) to be a value 
cperard. Scme S-ops put other restrictions on their cprerands» 
usually concerning type or Length. Unless specifically indicated», 
these restrictions are not checked oy the interpreter bute if not 
met» the results cf the operation are urdefinec. 
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INSTRUCTION SET 


Oe codes are four» six» ten or thirteen bits in tength. The tengths 
have been assigned according ta static frequercy of the S-cps thus 
ccempacting ccode space as much as possitle. 


RELATIONAL CPERATORS 


NAME MNEMONIC CP CCOE ARGUMENTS 
EGUAL TO EQL 1010 91 

LESS THAN LSS 1111 01 1010 

LESS THAN CR EQUAL TO LEQ 1111 00 1119 

GREATER THAN GTR 1111 OC 1001 

GREATER THAN OR EQLAL TO GE& 1111 OC 1101 

NOT EQUAL TO, NES 41010 1¢ 


ARITHMETIC CPERATORS 


NAME MNEMONIC CP CCODE 


ADD ADC 1011 01 
SUBTRACT SUB 1011 10 
MULTIPLY MUL 1111 0C 0101 
DIVIDE DIV 1111 OC 0110 
MCOULO MOD 1111 00 0111 


REVERSE SUBTRACT RSUB 1111 1C 1100 
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REVERSE DIVIDE 
REVERSE MCDULC 
NEGATE 

CONVERT TO DECIMAL 


CCNVERT TO BINARY 


RDIV 


RMOD 


EXTENCED ARITHMETIC OPERATORS 


EXTENCED ADD 
EXTENCED SUBTRACT 
EXTENCED MULTIPLY 
EXTENDED CIVIDE 


EXTENCED MODULO 


LOGICAL OPERATORS 


NAME 


AND 
GR 
EXCLUSIVE-UR 


NOT 


MNEMONIC 
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1G 
10 
01 
1¢ 


1¢ 


11 


11 


11 


il 


11 


oC 


00 


P. 


1101 
1110 
O111 
1000 


1001 


1100 
1100 
1100 
1100 


1100 


S 


101 
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ARGUNENTS 
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STRING OPERATORS 


NAME MNEMONIC OP CODE 

CONCATENATE CAT 1100 11 

SUBSTRING ONE $$1 1111 11 0100 ToVeSoLl 
SUBSTRING ThO S$2 i111 o0¢ 1000 TeV 
SUBSTRING THREE 952 1010 00 TV 


STGRE OPERATORS 


eB ewePr awn SS 2 Se ae 


NAME | MNEMONIC CP CCDE ARGUMENTS 
STORE DESTRUCTIVE stop 0010—“‘<C;«@W i 
STORE NON-DESTRUCTIVE LEFT  SNDL 1010 11 

STORE NON-CESTRUCTIVE RIGHT SNDR 1111 OC 0100 


CONSTFUCT DESCRIPTOR OPERATORS 


NAME MNEMCNIC OP CCOE ARGUFMENTS 
CONSTRUCT DES.» BASE ZERO CDRZ 1111 10 0100 DESCRIPTOR 
CONSTRUCT DES. LOCAL DATA COLD 1110 OC Nx CES#l ep weer 

\ CES#r 
CONSTRUCT DES.» FORMAL CDOFM 1111 01 O00] LLeeE 
CONSTRUCT DES. FORMAL CHECK CDFC 1111 11 1101 COO LLoE»DES#E1L-~. cae 
DES#r 
CONSTRUCT DES. FROM PREV. * COPR 1110 1¢ Nx DES#Llrece>» 


CES#N 
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CONSTRUCT DES. FROM PREV. 
& ACD 


CONSTRUCT DES. FROM PREV. 
& MULTIPLY 


CONSTRUCT DES. LeExIC LEVEL 


CONSTRUCT DES» REMAPS 


CONSTRUCT DES. DYNAMIC 


CDAD 


COMP 
COLL 


CORM 


CODY 


COMPANY CCAFICENTIAL 


Biegodg/2#@1700 SCL SLANGUAGE 


1110 


1iit 


1111 


1111 


1111 
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01 N» DES#KLvp ewer 
DES#n 

ic 0101 NeDESELlrecee 
CES#r 

1€ OC11 TYPE“LL-“OC» 
DESCRIPTOR 

00 1111 DESCRIPTOR 

11 1110 OCO TYPE 
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LGAD QPERATORS 


NAME MNEMCNIC OP CQDE ARGUMENTS 

MAKE CESCRIPTCR | MDSC . 1111 10 1010 

VALUE DESCRIPTOR VOSC 1111 01 10CC 

CESCRIPTOR DESC 110¢ 10 TYPE-LL-CC 

NEXT CR PREVIOUS ITEM NPIT 1111 01 11C1 V> TYPE“LL-OC 

LOACT L 1101 00 TYPE-LL-OC 

LOAD ADCRESS LA 0OGC TYPE*iL-OC 

LOAD ARRAY FIELD ADDR. LAF A 1Li1 11 12111 O11 TYPE» LENGTH 

LOAD FIELO ADDRESS LFA 1111 211 21111 O01 TYPE» OFFSET» 

: LENGTH» 

TYPE*LL~OC 

LCAC FIELD AOQDRESS 

FROM PREVIOUS . LFAP 1111 411 11211 O10 TYPE» CFFSET» 
LENGTH 

ARRAY LOAD VALUE AL 1111 01 1100 TYPE~LU-OC 

ARRAY LOAD ADCRESS ALA ici 01 TYPE*LL-OC 

INDEXED LCAD VALLE IL 1111 01 0000 TYPE“LL-OC 


INDEXED LOAD ADDRESS ILA 00C1 TYPE*LL-OC 


INCEXECD LOAC FIELD 
ADDRESS ILFA Liii 11 1111 000 TYPE» CFFSET>» 


LENGTH 
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LOAD LITERAL 


LOAC NUMERIC LITERAL 
LCAC NUMERIC ZERO 
LOAD NUMERIC CONE 


REFER 


LIT 


LITN 
ZOT 


ONE 


REFR 
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010C TYPE» LENGTH» 
LITERAL 

0011 LITERAL 

0101 

011¢ 


1111 11 21111 100 
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STACK OPERATORS | 


NAME MNEMCNIC 
BUMP VALUE STACK POINTER BV SP 
DUPLICATE DUP 
CELETE DEL 
EXCEANGE XCH 
FORCE VALUE STACK FVS 


PROCECURE OGPERATORS Z 


ne menos 
CALL CALL 
IF THEN © IF TH 
IF THEN ELSE oTFEL 
CASE CASE 


UNDO UNCO 


1101 


1111 


1000 


COMPANY CCAFIDEATIAL 
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Pa Ss 


10 1011 
00 
OC 0011 
OC 


01 


i¢ 


01 0100 
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ARGUMENTS 


ARGUMENTS 


TYPE*SEG~ 
FAGE=CISP 


1TEE=SEG= 
PAGE=CISP 


ADDR TYPE»TYPE- 
SEG-PAGE“DISP 


# CF ACDRe ADDR 
TYPE» TYPE~SEG- 


PAGE TCDISPr acer 
TYPE*SEG=PAGE= 
CISP 


# OF LEVELS 
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UNDC CONOITTIONALLY 
RETURN 


RETURN FORMAL CHECK 


EXIT 

| CYCLE 

MARK STACK 

MARK STACK AND UPOATE 
ENABLE-DISABLE INTERRUPTS 
EXITT-“ENABLE INTERRUPTS 
CO“ROUTINE ENTRY 


CO-ROUTINE EXIT 


SEARCK & SCAN OPERATORS 


REDUCE 


SEAKCK SDL STACKS 
SEARCH LINKED LIST 
SEARCH SERIAL LIST 
SORT SEARCH 

THREAD VECTOR 
INITIALIZE VECTOR 


SORT STEP DCKN 


UNDC 


RTRN 


RTNC 


EXIT 
Cyct 
MKS 
MK L 
EDI 
XTEI 
CNTR. 


CXIT 


L1ii 
1111 


1iii 


1101 
1110 
1011 
1iil 
Liil 
1443 
1111 


1111 


COMPANY CONFIDENTIAL 
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01 


01 


Ll 


11 


11 


11 


01 


11 


il 


il 


11 


0011 


0101 


1101 


1111 
0101 
0110 
1010 


1010 


ll 


if 
01 
11 
11 
il 
11 


11 


1001 


1110 
1010 
1000 
1011 
1011 
1011 


1011 


001 


000 


COL 


1C1 


001 
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# CF LEVELS 
# OF LEVELS 


&# CF LEVELS» 
TYPE *+LENGTH 


# UF LEVELS 


DISPLACEMENT 


LL 
V 


Ve# CF LEVELS 


# UF LEVELS 


ARGUMERTS 


VARIANTS» TYPE- 
LL-OC 


COMPARE TYPE 


000 
100 
001 
000 


010 


CGMPARE TYPE 
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SORT SWAP 

SGRT UNSLCCK 


DELIMITED TOKEN 


NEXT TOKEN 


CEBLANK 
CHARACTER FILL 
TRANSLATE 


FINC CUPLICATE CHARACTERS 


MISCELLANEGUS CPERATORS 


~ 


NAME 


TRANSFER MESSAGE 


HASH COLE 

SWAP 

FETCH 

FETCH AND SAVE 
DISPATCH 

HALT 

REAC CASSETTE 
LENGTH 

LOAD SPECIAL 


CLEAR ARRAY 


SSwP 
UBLK 


DITKN 


NTKN 


O8LK 
CHFL 
XLAT 


FOUP 


MNEMONIC 


COMPANY CONFIDENTIAL 
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Pe 


1111 11 1011 
11221 11 1011 


1111 11 1¢€01 


1111 11 1001 


1111 11 1001 
1111 11 1001 
1111 11 1110 


1111 11 1001 


CP CCDE 


11211 11 1010 


1111 11 1000 
1111 01 0110 
L111 0C 1100 
1111 11 1110 


1111 01 1011 


“1111 11 0010 


S« 


101 


010 


CC 


1111 O1 0010 


1111 1¢ 0000 
1111 01 1110 


1111 10 O111 
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TYPE-LL-OC> 
DELI» CEL? 


TYPtE~-LL-OC> 
SEPARATOR» V 


TYPE-LL~OC 


ARGUMENTS 


CEST«VARIASLES 
SOURCE VARIABLE 


VARIANT 
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COMMUNICATE 

REINSTATE 

FETCH CMP 

DATA ADDRESS 

SAVE STATE 

HARDKARE MONITOR 
OVERLAY 

PROFILE 

PARITY ACORESS 

EXECUTE 

COMMUNICATE WITH GISNO 
ACD TINER 


SUBTRACT TIMER 


core 
REIN 
FCMP 
ADER 
SV ST 
HMON 
OVLY 
PRFL 
PADR 
EXEC 
CKG 
ADDT 


SUBT 


1111 


1111 


1111 


Lill 


111i 


1111 


111i 


1111 


1111 


1111 


Liil 


1111 


1111 
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16 
1¢ 
1¢ 
01 
11 
11 
il 
1¢ 
11 
11 
11 
11 


11 


0110 
0001 
0010 
1001 
0001 
0011 
0000 
1111 
O111 
1110 
1110 
1100 


1100 


ENTRY NUMBER 
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RELATIONAL CPERATORS 


NAME 
EGUAL TO 
LESS THAN 


LESS THAN OR EQUAL TO 
GREATER THAN 
GREATER TRAN OR EQLAL TO 


NOT EQUAL TO 


MNEMONIC 
EQL 
LSS 
LEG 
GTR 
GEQ 


NEG 


COMPANY CONFIDENTIAL 
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PeSe 


CP CCODE 


1010 
1111 
1111 
1111 
Lilt 


1010 


01 


01 


00 


006 


00 


10 


10190 
1110 
1001 


1101 


#220 


1 23389 


ARGUMENTS 


BURROUGHS CORPORATION 
CCMPUTER SYSTEMS GROUP 
SANTA BARSARA PLANT 


RELATIONAL CPERATORS 


Syntax: 
EGL 
NEO 
GTR 
LSS 
GEQ 
LEE 
Format: 
EQL 


RKKKKKKKEKEK 


* 1010 G1 * 


KKK KEKKKKKK 


Equal to (=) 
Not equal to C_) 
Greater than (>) 
Less than C<) 
Greater than or equal te (¢ 
Less than or equal to 
NEQ GTR 


kkKKKkKKKKKKK 


* 1010 1C «* 


kKkKKkKKKKKKKK 


RKEKKEKEKEKKKEKKAKK KEK 


* 1111 00 i¢d1 « 


RHEKKEKKAKRKKEKKKKEKEK 


CP-Ccce OP-Code OP-Code CP-Ccce 
GEQ LEQ 
REKKRKEKEKKEKEKKAKREK KaKKKKENKKKKKEKE 
* L111 00 1101 * »«* 1411 C0 1110 * 
REKEKKKEKKKKEKREKKEK KEKEKEKERKKKKKEAKEKSE 
OP-Code OP-Code 
ade Two operands are expected to be on top. of 
EVALUATION STACK. The tower operend is ccersicered 
be con the Left side of the relatione while the 


oper 


and 


ne 


CN) 
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KKKKEKAKKAKEKKK 


* ECL * 


NEG * 


KRAHKEKKKKKKKAKEK 
* GTR * LSS * 
KRRKKEKKEKRKAKKAKEK 
* GEC * LEG * 


KRKAKKKEKEKKKEK 


LSS 


KKKKAEKEKKKEKKEKEKEK 


* 1111 00 10190 * 


KAREKKKEKEKKKEKKKK 


is censidered to be on the right. 


the 
tc 
top 
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be The relational operétors do a comparison betweer two 


operands of any data type. The operands are removed 
from the stack and ¢ selfrrelative descriptcr of a 
Iisbit result is returned whose value is: 


1. When the conditicn is true - <«€1)14 


2e When the conditicn is false = a€1)02 


When both operands are FIXED» the operator dees a 
true signed arithmetic compare. 


when both operands sare cheracter strings» the ccmpare 
is done from ieft to right» using blank fill cr the 
richt for the shorter string. 


For ail other ooerand combinatiors leading zeros are 
supplied to tha shorter of the two fields. No sign 
analysis 18 done ana the operands are treated as 
positive magnitudes. 
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ARITHMETIC OPERATORS 


nme nwruwean ae eS eaGa & a & 82 8 a & 2 


NAME MNENCNIC 
ADD | ADD 
SUBTRACT SUB 
MULTIPLY MUL 
DIVIDE DIV 
MODULO MOD 
REVERSE SUBTRACT RSUB 
REVERSE OIVIDE RDIV 
REVERSE MODULO RMCD 
NEGATE NEG 
CONVERT TO DECIMAL DEC 


CONVERT TQ BINARY BIN 


COMPANY CCNFIDEATIAL 
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P.eSe 


CP CCCE 


1011 
1011 
1111 
1111 
1111 
1111 
1111 
1111 
1111 
1111 


1111 


01 


1¢ 


O¢ 


00 


OC 


ic 


10 


10 


01 


10 


10 


0101 


0110 


O111 
1100 
1101 
1110 
0111 
1000 


1001 
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ARITHMETICS 


ACDITION 
SUBTRACTION 
MULTIPLICATION 
DIVISION 


MODULO 


Syntax: ADC 


SUB 
MUL 
OrV 
MOD 
Formats 
ADO SUB 


KRREAEKK KK KKK wKaeEKKEKEKEKEKE 


* 1011 01 * *®* 1011 10 * 
kkhtk kkk khkh kkk hkik kkk 


OP-Code OP=-Code 


MOD 


KaKKKEKKKKKKKKEKE 


* 1111 60 Clil * 


RRKKKARKKAKAKEKKEK & 


OP~Ccce 


COMPANY CCNFICENTIAL 
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MUL 


KEK KKEKKEAARKKEARKKEEASE 


* 1111 00 0101 * 
Raw KKHEKEEKEKKAKEK KE 


OP-Code 
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REKKEKKK KK ERK 
* ACC * SUB * 
RRRKAKKK RK ANE 
* MUL * CIV * 
KKKKEKAKRK KEE 


x MOD * * 


KRAXKKKEKRKEKKEKEK 


DIV 


KBRREKEKEKRKEKEKKKKAKE 


* 1111 0C 0110 * 
KRAKKKK EKER A 


CP-Ccce 
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Function: 


ge 


he 


Two operands are expected on the EVALUATICK STACK. 


1e The bottom operand 1s considered to be cen the 
“Left™ side of the operator. 


2- The top operand is considered to te on the "right*™. 


The arithmetic operétors cerform 24-bit arithmetic on 
two operands. These operands may be of any data type. 


Sign analysis will only be done if beth cperatcrs are 


ef type FIXED. whith any other data type ccombinaticns»s 


the magnitudes of the operands are evaluatec. 


For bit and character data» tf the fieltc is greater 


than 24 bits» only the teow order 24 bits will be 
evaluated. when the field is less than 24 cits» zeras 
witl be supplied on the left. 


Both operands are cut back. 


A 24 bit self-relative result is returred to the 
EVALUATION STACK. when toth operands are type FIXED, 
the result witl be type FIXED. In all cther instances 
the result will te of type BIT. 

ADD performs integer addition (+) 


SUB perfcrms integer subtreéection (-) 


MUL performs integer multiplicaticn (*) 


DIV performs integer division (€/) 


DIV results in an integer value. Any remaincer is 


truncated. 


BURROUGHS CORPORATION COMPANY CONFIOESTIAL 
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17/8 = 2 
2/7 = 0 
“7/3 =72 


The MOD operation is division resulting in the 
integer value of the remainder. It is evaluated by 
the following formulas 


Y MOD Z = Y¥rCCY/2)*«Z2)» using integer value cf h. above 


For example: 


7 MOD 3 = 7=€€7/2)«3) = #1 
“7 MOD 3 = €=7)*€€€-7)72) *3) = -1 

3.MOD <7 = 3*€C€3/047))*#0-79) = 3 
-3 MOD -7 = €-39-€C0-3)/097))8047)) = 3 


Note that this is NOT the same as the corventional 
mathematical definition of MOC. 
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CONVERT TG BINARY 


syntax: 


Formats 


BIN 


Ke kK KKK 


* BIN * 


kxzaKKKEK 


KKKEKKEEKEKEKEKEKEKEKEK 


* 1111 120 1001 * 


KKKKKKEKKKAAKKEKKEK 


OP-Ccde 


Functicnr: 


An crperand cf one (1) to eight C8) characters ts 
expected on the EVALLATICN STACK. 


These characters are assumed to be numeric decimal 
digit characters. 


The characters ere treated as the decimal 


representation of an ursigned integer and are 
converted to the corresponding positive 24-bit birary 
number. 


A selfrrelative descriptorsr of type BIT is left on 
the EVALUATION STACK with the binary value. 
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CONVERT TC DECIMAL 


Syntax: 


Formats: 


DEC 


kek EK KKK 


«* CEC « 


kRaKKKAK 


ReKK AK KK KEK KKK KKK 


* 1111 1C 1CdCC « 


KRKKRKEKKEKKEKEKEKEKL 


GP-Coce 


Function: 


Two operands are expected to be on the EVALUATION 
STACK. 


1. The top operand should yield a value cf cne (1) 
to eight (8). 


a) If not i-8» & value of eight (8) wilt be cused. 
Z2- The second operand should be 24 bits ir length. 


ad Jf tess then 24 bitser zero fill is previcec 
on the left. . 


b) If more than 24 bits» then only the low crcder 24 
bits will te used. 


The 24-bit value is assumed to be type BIT» i.e. 
unsiaqned. 


Both operands are cut back. 


Dependina upon the value cf the top cescrirtcr cn the 
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EVALUATION STACK a 1 to 4 character result is left on 
top of the EVALUATION and VALUE STACKS. These 
characters are the decimal representation of the 
24-bit value. 


Leading zeros in the result are not changed te 
blanks. 


BURROUGHS CCRPGRATION . CCMPANY CONFIDENTIAL 
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NEGATE 


syntax: 


Formats 


NEG 


krekkkik 


* KEG * 


KaKKaKK 


KaKKKKKKKKKKKKKE 


* L111 QO1 C111 * 


RKKEEKEKKKKKEKKKKKEK 


OP-Code 


Function: 


This operator pops an operand off the EVALUATION 
STACK» negates ite and pushes it back cr tep of the 
EVALUATION STACK as a FIXECe selif-relative result 
which is the two's ccemplement of the operarc. 


Cperands of any type other than FIXED are treatec as 
FIXED. 


i. Data ttems shorter than 24 bits are padced 
on the left with zeros (0). 


2-=Data items tlonger than 24 bits are left-truncated 
and treated as FIXED. 


BURROUGHS CCRPORATION: 
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REVERSE ARITHMETICS 


Syntax: RSULB 
ROIV 


RHCD 


Format: 


RSUB RDIV 


KREKKEKKEEKKKKKKK KREEKEKK KEKE KKEKEEK K 


* 1122 10 1100 * #% 1111 10 1101 


KRKKKEKEKEKEEKKKREKEEKEKEK KREKKKKEKEEKEKKEKAKK KK 


OP-Code 


OP-~Coce 


Functions 


ae These 


EVALUATION STACK. 


le Reverse 
EVALUATION 


as Reverse 
EVALUATION 


top of the stack. 


36 Reverse 
EVALUATICN 


operators perform the same oreraticn as: 
corresponding “forward” 
difference is the 


subtract: 


divice: 


modulo: 


COMPANY CCNFIOERTIAL 
B1&00/81700 SDL S=LANGUAGE 
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KRKEKARKKEKKKKKAKE 


* KRSUB * RCIV *« 


KRAKKKAKAKKKEKKEKKREK 


* FMCC * * 


KREKKKKKKKKHHKKKK 


RMCO 


KRKKKKKEEKEKEKEKEEKEK 


1111 10 1110 * 


REKKEKKEKEKEKEKKKEK 


CP-Code 


their 


operators. The cnly 
of the operarcs ir the 


The second operand ir the 
STACK is subtracted from the 
on top of the stack. 


operand 


seconc operand in the 


is divided into the operara = on 


second operand in the 


top of the stack to ottain the residue. 


is divided into the operanc on 


BURROUGEKS CORPORATION 
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EE TeNUeL ee ee are? 


NAME pee 
EXTENCED ADC XAOD 
EXTENCED SUBTRACT XSUB 
EXTENCEC MULTIPLY XMLL 
EXTENCED DIVIDE XOTV 


EXTENCED MOCULO xXMOD 


COMPANY CONFIDENTIAL 


B1&@00781700 


P. 


cP CCDE 


1111 
1111 
1111 
1111 


1111 


11 1100 
11 1100 
11 1100 
11 1100 


11 1100 


SOL S*LANGUAGE 


Se 


011 


1C0 


101 


110 


#2201 2389 


ARGUMENTS 
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EXTENCED ARTTHMETIC OPERATORS 


Syntax: xXACD 
XSUB 
XMLL 
XDIV 


XMOD 


Format: 


XATD 


KREKEKKEKEKKEKKKKKKEKKKKNK 


* 1111 11 1100 O11 « 


KREKEKKKEKEKKEKKEEKKKEK 


GP-Code 


XMUL 


KKEKEKKKEKEKKEKEKKEKKEKEKKER 


* 1111 Lf 1100 101 * 


KKEKKKKKKKKEKEKEAKEKEAKKER 


OP-Code 


XMOD 


RKKKAEKRKEKKEKKRKEEKRKREKEK 


* 11211 11 2100 111 * 


KKEKKEKEKEKHKKEEKEKEKEKEKKEK 


OP=-Code 


XSU3 
RK RK KE EE KK 


* 1111 11 110C 100 * 


KRKKKEKEKREREKEKEEKKKKEKEK 


CP-Code 


XO1V 


EKEKKKEAEKKAKKKEKAKKER 


* 1112 11 1100 110 * 


KKAKKKKKEKHRKKKEKAAKKAK 


OP-Code 


KEAKKAEAKRKKEREKELK 


* XAODD * XSUB * 


RAKE KKEKKKKKKEK 


* XMUL * XOIV * 


WHKRKKKKKEKEKEAEKEK RK 
* XMCD * * 


RHEKKAKKKEKAAKAKREKE 
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Functicn: 


ge 


Two cperands are expected to be on the EVALUATION 
STACK. 


The operands are fopped from the EVALUATICN STACK and 
the indicated operation is performed on the operards. 


The operands are always treated as bit strings. 


The result returned on the top of the EVALUATION 

STACK is nonwselfrrelative» type BIT. 

Addition/Subtraction 

1. If the two cperéends are of different tergths,» 
then the shorter is padded on the left with 
binary zeros. 

Ze The length of the sum/difference will be earal te 
the length of the Longer cperand. 

Multiplication | : 

1- The tLength of the product will be the sum of the 
lengths of the two operands. 


Division/Modulo 


1e The length of the result wilt be the tength of 
the dividend. 


2« For the Moduilo operators» the dividend must be 
nonself-relative. 
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LOGICAL OPERATORS 


EXCLUSIVE-OR 


NOT 


id 


MNEMCNIC 


waaeanmrnnenw @ aw 


AND 
OR . 
EXOR 


NOT 


COMPANY CCNFICEATIAL 
Bl&00/E1700 SCL SLANCUAGE 


P.S. 


00 0001 
0c 90000 
0c 0010 


Oc 1011 


#2201 2389 


BURFOUGHS CORPORATION 
SYSTEMS GROUP 
SANTA BARBARA PLANT : 


COMPUTER 


COMPARY CCAFICENTIAL 
BLA8OO/E1700 SCL S-LANCUAGE 
P.S. #2201 2389 


LOGICAL OPERATORS 


KRKEKKEKKRKEKHAKKAEKKEK 


* ANC * EXOR « 


RKKKAKKKK KA KKK 


« (CF * * 


RRKEKKEKEKKEKEKAKEK 


Syntax: ANDO 
OR 
EXOR 
Format: 
AND 


RKEKEKEAKEKKKEKKEKSEK 


* 1111 0C CCCi « 


REKKKKKEKKEKE KEK KEK 


OP~Code 


OR 


KKKKKHKEKKKKERKKEKE 


* L111 CO CCCO * 


KEKEKKEKEAKKEKAKAKERK 


OP-Code 


EXOQR 


KAM KEKKEKEKKEKEK EK 


* 1111 00 0010 «x 


REMAKE KHEKEKAKEKEEKERK 


CP-Ccde 


Functicn: 


"NOT" ts unary operator ard is explained separately. 
Atk other lIcgical operators expect two cperands to be 
on the EVALUATION STACK. 


The operands» regarcless cf their type» are operated 
upon bit by bits» stéerting from the right. Wher the 
operators are of unequal length the sherter ore is 


padded on the left with zeros. 


The tength cf the result is the tength cf the lcorger 
operand. When the result is 24 bits cr tess» the 
result is selfrrelative. on the VALUE STACK. 
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SANTA BARBARA PLANT PeS. #2201 2389 


de The result is always type BIT. 


Ge The two operands are cut back from the EVALUATION 
STACK and the result is pushed ocnto the EVALUATION 
STACK. 


BURFOUGKS CORPORATION 
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LCGICAL NOT 


Syntax: 


NOT 


Format: 


KREKKKEEKEKEKEKEKEKEK 


* 1111 00 1011 * 


KKKKKKKKKKKEKEKEKK 


OP-Coce 


Function: 


COMPANY COAFIDERTIAL 
B1800/7E1700 SCL S=LANCUAGE 
PeSe #2201 2339 


kkiekkae 


* NOT * 


kKkKKk KKK 


ae This operatecr expects one operanc to be cr the tcp of 
the EVALUATION STACK. © 

b. The result is of the same type ana lencth as the 
cperand» Out each bit representing the result value 
1s the onets complement of the correspencing bit of 
the operand. 

ce. If the operand is selfrrelatives» the result will be 
self-relative, otherwisep the result will be 


nonselfr-relative. 
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STRING CPERATCRS 


CONCATENATE 
SUBSTRING ONE 
SUBSTRING ThO 


SUBSTRING THREE 


MNEMCNIC 


CAT 


COMPANY CONFICENTIAL 
B1le@00/B1700 SCL S*LANGUAGE 


P.S. 


CP CCDE 


1100 11 
1111 11 0100 
1111 0¢ 1000 


1010 OG 


#2201 2389 


Tre Velol 
TeV 


TeV 
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STRING CONCATENTATION 


Syntax: CAT 


Format: 


RKEKKKKKKEL 


* 11900 11 * 


KRKKEKKKKE KKK 


OP-Code 


Function: 


kKkKaRKKKEK 


* CAT * 


kKEkEKKKKK 


This eperator pops two operands off the EVALUATION 


STACK and generates anew descriptcr that oescribdes 
the concatentation of the two strings. The 
rext~to-toap enperand must be non@selfrrelat ives 


name~value bit on. 


When the source data items are of type CHARACTER» the 
results will be tyre CHARACTER. 


All cther data type combinaticns wilt cause the 
result te be of type BIT. 
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SUBSTRINGse ONE PARAMETER 


COMPANY CCNFICENTIAL 
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KeKAKKKK 


* SS1 * 


akKkKKK KKK 


Syntax? <String Type 8it><Load Type Bit> 


<Offset><Length> 


Format: 


KKK KRRKKKEK KEK KEKE EAE KK KK EKKEKEKKEHKKKAKEEKKEEKKEKKMEKEKRAKKKK HK 


* 


* * 


KKK EK KEK KK KK KEK KEKE KKK K EEE HR KKERKEKEKREKH EME KKEKEKKKEKKEKEKEKK 


* 2111 11 0100 * . x 
OP-Code k 
x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*x 
* 


see 1 Bit C 
1 


The Offset and Lencth fields 


1. lf the first bit 


* 


x e+ + & b&b te & Hh bh 


5 bits follow. 


ae If the first bit 
16 bits follow. 


* 


re t+ £ ee 


* 
* 


«x 1 Bit 0 


= Length 
= Length 


* 

* 

axe 6 or 17 Bits 
Specifies lergth 


€6é or 17 Bits 
Specifies offset 


Load Address 
Load Value 


1 


in bits 
in character 


are encoded as follows: 


in these fields is ecual to €0) then 


in these fields is eaquat to (1) then 
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Function: 


This operator furctions the same as S83 except that 
the offset and tlergth fields are titerals which 


follow i in-line» rather then values on the EVALUATION 
STACK. 


BURROUGHS CCRPORATION COMPANY CONFIDENTIAL 
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SUB“STRINGs TWO PARAMETERS 


KKKKKKSK 


* S$S2 * 
kkeRE KKK 
Syntax: SS2 <String Type Bit><lLoéed Type Bit> 


Format: 


KRKEKKKKKEKEKKKKAKHKKKKAKEKEKKKKKKEK K 


* 1111 60 1¢0C0O « * * 
REKKEKEKK KEKE KKKKKKKEEKKKRKEKKKKE 
OP-Code * * 

* 
* k*e 1] bite OO = Load Adcress 
* 1 = Load Vatue 
a . 
* 
kee LT bits C0 Length in bits 


pos 
“ou 
[= 
© 
pa | 
‘o 
et 
bo 


in characters 
Function: 
2 Two operands ere expected to be fourc on the 
EVALUATION STACK. 
1. The tor operand is the offset ir bits or 


characters of the sutstring from the beginnirg cf 
the string. If longer than 24 bits» cnly the Low 
order 24 pits ere used. 


2e The next operana is the string. It may be cf any 
type. [t must not be selfr-relative. If toad type 
bit is O» then tt must be an adcress (i.e. 
name~value bit off). 


be. The two operands are then cut back and a result iis 
left on the EVALUATICN STACK. 


1. Type: 
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Q then bit 
1 then character 


a) String type Lit 
String type Lit 


b) Load type bit 
Load type tit 


¢ then adcress 
1 then value (selfrretlative 
if Length is 24 tits or less) 


é€e Length: 


a) Length is ecuat to the original tength of the 
string minus the offset. 


ss Address? 


a) lLecad tyre bit = 0 then the address in bits is 
equal to the old string accress plus the 
offset. 


b) tLcad type bit = 1 then the adcress is the 
address cf the VALUE STACK if the substring 
length is greater than 24 bits. 


1) If the load type bit is set anc substring 
Length is greater than 24 bits» the 
substring is loaded to the top of the 
VALUE STACK. 


2) If the load type bit is) set anc the 
substring tength is less thar cr ecual te 
24&4& cits the substring is leaded right 
justified into the address field cf the 
top of the EVALUATICN STACK. 


4e When the offset is greater than the length cf the 
Strinc» an arrcr interrupt occurs. ; 


BURROUGHS CORPORATION 
CCMPUTER SYSTEMS GROUP 
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SUB-STRING» THREE PARAMETERS 
Syntax: $S$3 <String Type Bit><Lcad 
Fermat: 


KREKKKEKKKKKEKKEKKKK KK KEKEK EK KEK 


* 1010 00 « * * 


KRAEEKEKEKEKEKEKKKEKKEKKEKEKAKK 


COMPANY CCANFICENTIAL 
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KEkKKEKKKK 


* $53 * 


kkEKaKEKEK 


Type Bit> 


GP-Coce & 
*« *& 
* kee | bite 0 = Load address 
* 1 = toad value 
& 
: - 
*xe |] bit» 0 = Length ir bits 

1 = tength in characters 
Functicn: 
ae Three operands are expected to be found or the 

EVALUATION STACK. 

1. The top operand is the length ir bits or 
characters of the substring desired. 

2. The second operend is the offset in bits or 
characters from the beginring of the string. 

2. The third operand is the string. It gay be cf ary 
typee It must not te selfrrelative. If kcac type 
bit is Cp» then it must be an aceress Ci.e. 
nanevalue bit off). 

be All three operands ere cut back and aresult is teft 


on the EVALUATION STACK. 


BURROUGHS CORPORATION 
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SANTA BARBARA PLANT PeSe #2201 2389 
1. Types 

a) String type bit = C then pit 
String type tit = 1 then character 

b) Load type bit = 0 then adoress 
Load type tit = 1 then value (selfr-relative 

if Length is 24 bits or less) 
2e Length: 

@) Length is equal to the length cf the string 
minus the offset. 

3. Address: 

ad Load tyre bit € then the address in tits is 
equal to the old string address plus the 
offset. 

b) toad type bit 1 then the adcress is the 
address of the top of the VALUE STACK if the 
substring length is greater than 24& bits. 

1) If the toad type bit is set anc the 
substrinc length is > 24 bits» the 
substring is loaded to the top ef the 
VALUE STACK. 

2) If the load tyoe bit ‘is set anc the 
substring is loaced right justifieac intc 
the adcress field of the EVALUATION 
STACK. 

4. When the offset plus the Lergth is Greater than 
the length of the string» an errcr irterrupt 


OcCUTS« 
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STORE CPERATORS 


NAME MNEMONIC 
STORE DESTRUCTIVE s7cod 
STCRE NON-DESTRUCTIVE LEFT SNOL 


STGRE NON-DESTRUCTIVE RIGHT SNOR 


COMPANY CCAFIDERTTIAL 
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CP CCODE ARGUFENTS 
0010 
1010 11 


L1i1i OC ¢G100 
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STORE NON“DESTRUCTIVEs DELETE LEFT 


KKRAKEKSK 


* SADL * 


XRkKKKK KKK 
Syntax: SNDL 
Format: 


KRREKEKEMKKEKEKK 


* 1010 11 * 


RK KKEKEKEKK 


OP-Code 
Function: 


ae This operator pops two operands cff the top of the 
EVALUATION STACK. 


be. The top (destination) operand must be 
ron~selferelative and the namervatlue bit rust be cff» 
j3.@. it must be an adaress. 


Ce It then copies the data described by the second 
(source) descriptor into the tlocation cescribec by 
the top (destination) descriptor. 


BURRGUGHS CORPORATION COMPANY CCNFICENTIAL 


COMPUTER SYSTEMS GROUP BL&Q0/E1700 STL S-LANCUAGE 
SANTA BARBARA PLANT PeSe &€#2201 2389 
de when both the source and cestination fields are of 


be 


type CHARACTER» the cata will te left justifiec in 
the destination field with either blank filt or 
truncation on the right. 


Any other source-destination field type combinations 
yield right justified data in the destiration field 
with either zere fill or truncation on the left. This 


allows for type conversion and length truncation. 


The source descriptor ts then pushed back cn to the 
EVALUATICN STACK. 


29 IL 
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STORE NON-DESTRUCTIVE» DELETE RIGHT 


KkKa kk kkk 


* SNCR * 


kKkKeak&k&KkKKke 
Syntax:  SNOR 
Formats: 


KEKKEKEKEKKEKEKKKE 


* 1111 OG C100 « 


KEEKKEKEKEKKKKKKEK 


OP~Coce 
Functicn: 


ae This operator pops two operands cff the top cf the 
EVALUATION STACK. 


be. The top (destination) onerano must . be 
ron-selfrrelative ard the namervalue bit must be off» 
ieee. it must be an address. 


\ 


ce It then copies the data describec by the second 
(source) descriptor into the tlocation cescribeda by 
the top (destinatton) descriptor. 


de khen both the source and destination fields are of 
type CHARACTER» the data will be tLeft justifieo in 
the destination field with either blark fill or 
truncation on the right. 


ee Any other source-destinéetion field type ccmbinaticrs 
yield right justified data in the cestiration field 
with either zero fill or truncation on the left. This 
allows for type conversion and lergth truncaticn. 
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f. The destination descriptor is then pushed back cn tec 
the top of the EVALLATICN STACK. (This is the only 
difference from SNCL). ; 


BURFQUGKS CCRPORATIOGA CONPAKY CCNFIDENTIAL 
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STORE DESTRUCTIVE 


Syntax: 


Format: 


tKthkekk kkk 


* QO010 * 


KKKKKKEKEK 


OP-Cede 


Functicn: 


STOO 


Ce 


KKKKKKRKK 


* STOD * 


kKkKaaKKKEK 


This operator pops two operands cff the top of the 
EVALUATION STACK. 


The top (destinetion) operard must be 
ron=self-relative and the name=velue bit must be cff» 
1.@. it must b2 an address. 


It then copies the data described by the second 
{source). descriptcr into the tlocaticn cescribed by 
the top (destination) descriptor. 


Khen both the source and destination fields are of 
type CHARACTER» the data will te teft justifiec in 


the destination field with either blark fill or 
truncation on the right. 


Any other source“destination field type combinations 
yield right justified data in the cestinaticn field 
with either zere fill or truncation on the left. This 
allows for type corversion and length truncaticn. 


BURROUGHS CORPORATION 
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CONSTRUCT DESCRIPTOR OPERATORS 


NAME MNEMONIC 
CONSTRUCT DES. BASE ZERO C082 
CONSTRUCT DES. LOCAL DATA COLD 
CONSTRUCT DES. FORMAL COFM 
CONST&UCT DESs« FORMAL CHECK CDFC 
CONSTRUCT DES.» FROM PREV. CDOPR 
CONSTRUCT DES. FROM PREV. 

& ACO . COAD 
CONSTRUCT DES. FROM PREV. 

& MULTIPLY COMP 
CONSTRUCT DES. LEXIC LEVEL COLL 
CONSTRUCT DES. REMAPS CDORM 
CONSTRUCT DES. DYNAMIC cOOY 


1110 


1111 


L1ii 


1111 


1111 


COMPANY CCNFIDERTIAL 


1C¢ 


OC 


01 


11 1101 CGO 


i¢ 


01 


1¢ 


1¢ 


0¢ 


11 


PeS. 


01090 


0001 


0101 


0011 


1111 


B18O0O0/E1700 SCL S=LANCUAGE 
#2201 2389 


CESCRIPTOR 


N» CDES#l peewee 
DES#r 


LLeeE 


LLeE»xDES#lewece 


CES&r 
N » DES#lo weer 
DES#h 


No» CES#@ls..e» 
DES#r 


Ne DES#1rpewcee 
DES&r 


TYPERSLLWOCs 
CESCRIPTOR 


CESCFIPTOR 


1110 COO TYPE 


BURROUGHS CORPORATICN COMPAN 


Y CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B1800/7E1700 SCL S-LANCUAGE 


SANTA GARSBARA PLANT P 


CONSTRUCT DESCRIPTOR PREVIOUS and ADO 


eSe F2201 2389 


RKEKAKKRKK 


* CCAC * 


eKkKKAKKKEK 


Syntax: CCAD <# Cescriptors><Descriptor><Descriptor>e.. 


Format: 


KKK KCEKKEKKEKRKKKEEKKEEAKEKREKKEKHKKAKSE 


* 1110 O1 * * * * ee 

KEK KK KE KKKKKEKEEEKE KEKE KEKKEKEKEARA 

GP-Code * * * 
& KKKKK KK 
* * 
* * 
* wee Descriptors,» variable siz 
* (See irstlLine descrigtor f 
* 
*& 
txt 5 Bits 


Specifies numter of descriptors 
Function: 


ae The number of descriptors indicéetes 
ineline descriptors. These will be 
descriptors on the NAME STACK. 


be. The descriptors may te simple or array. 


ce The address portion is generated from 
field in the descriptor anc informa 
previous entry on the NAME STACK. 


de The following formuls is used? 


e 
crrat) 


the rumber of 
used to build 


the "filler" 
tier frem the 


BURROUGHS CCRPORATION COMPANY CCAFICEATIAL 


COMPUTER 


SANTA 


SYSTEMS GROUP BI8OO/EL700 STL S“LANGUAGE 


BARBARA PLANT | PeSe #2201 2389 


A*®* = AtLtF 
te A* - is the new address part. 


Ze = COA - is the address ecart of the previous 
descriptor generated on the NAME STACK. 


x. Lt - as the Length part of the previous 
descriptor. 


4e F - is the "“fiiler™ field in the descriptor if it 
is present. 


The operator must be able to finc the adcress part of 
the previous entry whether tt is a simple cr array 
descriptor. 


The new ard oprevious descrirtors canrct be paged 
array descriptors. 


BURROUGHS CORPORATION COMPANY CCNFICENTIAL 
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CONSTRUCT DESCRIPTOR BASE ZERO 


KKKKEKKKK 


* COCBZ * 


KHKKKKEKKK 


Syntax: COBZ <descriptor> 


Forrat: 


KREKKEEKEKKEKKEKKEKKKKKKKKKKKK 


* 1111 10 Cicad « * 
RR KEKE KEKE RK KEKE ERR KK 
OP-Ccce * 


* 
* . : 
kx«x Descriptcrs variable size 
(See inwlina descriptecr fermat) 


Functions 


ae A descriptor is generated on the NAME STACK with zerc 
(0) in the address field anc other fielcs specified 
by this irnvline descriptor. 


be. Paged array descriptcrs are not allowed. 


a7 990 
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CONSTRUCT DESCRIPTOR DYNAMIC 


KEKKAKRKEAKE 


* CCOY * 


KkKkeikaxkkarne 
Syntax: CODY <Type> 
Format: 


WK KKK KKK KKK KEKE KKEKKEKKKKEK KKK 


* L111 11 1110 OQC « & 
KERR KKK EK KEE KKKKEKKK KEK KKK ERK EK 
OP-Code & 


*& 

* 

exe 8 Hits specifies type 
(See type field cf in-line 
descriptor format) 


Function: 


ae This operator constructs cescriptors fer dynamic 
arrays and dynamic character strings or bit strirgs. 


be. The type field fotlcws the op~coacer tut the length 
and number of entries wilt be operaros or the 
EVALUATION STACK. 


Ce The descriptor will be marked as ran-selfrrelative, 
ands» if array» will te marked contigucus. 

d. The , Procedure to build the descriptor ts as follcws: 
le The type field is placed in the NAME STACK. 


2@e The type field is tested fer simple cr array 
type. 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


36 


b) 


c) 


For 


f) 


COMPANY CCNFICENTIAL 
BL800/E1700 SCL S“LANGUAGE 
P.Se #2201 2389 


Simole ttems: 


Ttem lenath is the onty entry on the 
EVALUATICN STACK. 


The Length 18 vopped off the EVALUATICN STACK 
and placed in the KAME STACK. 


The VALUE STACK PCINTER is used as the 
address. 


Thea VALUE STACK POINTER is updated by adding 
the length to it. 


array items 


Length and number of entries will be in the 
EVALUATION STACK. 


The Length is popped off the EVALUATICN STACK 
and placed in the NAME STACK. 


o 


Length tetween entries ts the same as lencth. 


The number of entries 15 poppec off the 
EVALUATION STACK and placed ir the NAME 
STACK. 


The VALUE STACK PCINTER is used as the 
address. 


The VALUE STACK POINTER is updated by 
multiplying the number of entries by the 
length and adding the result to the VALUE 
STACK POINTER. 


a7 4 
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CONSTRUCT DESCRIPTOR» FORMAL CHECK 


« 


KREKKKKEKK 


* CDFC * 


gRaeaenkikkkn 


Syntax: CDFM <Lexic Level><4Descriptors> 
<Descriptor><Descriptor> eee 


Format: 


REKREKEKKEEKKAKK KKK KHEKRKREKKKRKKEKEEKKEARKEREKKEKKKEAKEKEKHEKEKKEKEKEKK 

* L111 11 1101 000 *« = * * * * Pe 

KEKE KKK KK REE KK HR KEK KEKK KK AK KEK KKEERNKEKE HAA EKEKKEKKRKEKKEKEKEKEKKK KH K 
OP-Code * * * * 

x KEK REKEKKEEKEKEK 

x * 

*x * 

& Descriptors» variable size 

* (See inw=line descripter fermat) 

* 

* 


* 

* 

x 

* 

* 

* 

* we&eanxatk 4 Bitse specifies the number 

* of 48 bit entries expected cn 

* the EVALUATICN STACK. 

x 

kek kakkaaek | Jitsr specifies the Lexic level 
{to be made current). 


de Descriptor kkeaRKKKEKKKERKR KEKE 


* T * L * E & 


RKEAKEKRKEKEAKEKKRKKKKK 


* 
TYPE FIELD 

RRR K KARA KAMER KK AKEKKE 

* QO « 1] * * * * * * 


— KERR KREKKKKEKRAKEKAKKKA KKK EKKKE 


0 1 2 3 4 a 6 7 
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Bits: 0 = Always C 
1 = Always 1 
2 = If array then 1 


Ww 
7) 


If array then 1» specifies that length 
between entries is equal 
to the length cf entries 

4e5= 00 BIT 

Q1 FIXED 


1G CHARACTER 


11 VARYING 
6 = If array tound varying then 1 
7 = [f length of data varying then Il 
L = Length field - (6 or 17 bits). Appears 


only if type bit 7? is equat to zero (0). 


—E = Number af entries for array - (6 cr 17 bits) 
Acoears cnly if type Fit 6 = 0 and 
type bit Z = le 


Ceperdinc on the cenditions in the type field, 
Gifferent fields appear in the incsline descriptors 


Kind Array (CA) 
Simple (S) 

Length varying (LV) 

Array bound varying CABYV) 


THENS 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
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Function: 


KIND LV ABY FIELDS THAT APPEAR 


BK AIT IR ERE AKER ERE MERE KEREEAKKKEKKEKE 
* § * FALSE *®  2<~ * T» L & 
HHI HI HHI RII KK EK KEKE EEE KKKKNEEKEEK AK 
* S * TRUE * “<= * T & 
FRI IKK TI IT KERR NK KEKKCREMEEKEKKMKEKNKKEKK 
x A * FALSE «* FALSE * T» Le E * 
HTT RT RRR RRA RKCKEKKKEMREKKKEKKEKKAKKK 
* A «* FALSE * TRUE * T» L ® 
RIK TH HMR RK REHM RAKRE EER EKEKKE KE AK KEKE 
* A * TRUE * FALSE * T» £ * 
He KH IKK KKH HK IH IKK RMR KAR KKARKEREKKAR KKK 
«* A * TRUE x TRUE t T & 


RRR KEKEKKEKKEKEKEKRKKCKKEKEKEKEEKKEEKEKEKEREKEKRKAEAKEEKEKKAKAAK KKK 


Refer to CONTROL STACK Mechénism 


—_ 
—_ 


CSeENTERED»LL(ICSP=1) 


: URRENT.LL = LLs 
CISPLAYCCURRENT.~LL) t= 


c 
CURRERT.NSFs 


1. A previously executed MKS has initially set up 
CONTROL.~STACKCCSP-1). 


2. Since the format parameters have not been put on 
the NAME STACK». CURRENT.NSP has not yet been 
bumped. 


Descripters for the actual parameters are expected to 
be on the EVALUATICN STACK. 


Tne descriptors in the instruction are matched to 
descriptors in the EVALUATION STACKse starting with 
the tlast descriptor in the EVALUATICA STACK ana 
matching it with the first cescriptcr in the 
instruction. 


The descriptors» after comparisons are lcadea tc the 
NAME STACK. The EVALUATIGN STACK is cutback. The 
VALUE STACK is unchanged. 


when array bound varying is equal to Ils the array 


BURROUGHS CORPORATION COMPANY CCONFICENTIAL 
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ge 


he 


bound is taken from the. actual parameter. 


When length varying is equal to 1» the length tis 
taken from the actual parareter. 


Khen the data type is varyingsr the data type is taken 
from the actual parameter. 


hhen an array the actual array neec rot be 
contiguous. If it is» the formal and actual 
parameters must match identically. [f there is a 
mismatch» an error interrupt occurse 


For paged arrays» beth the paged array bit anc the 
page subscript size must be copiece 


BURROUGHS CORPORATION COMPANY COCNFICENTIAL 
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CONSTRUCT DESCRIPTOR FORMAL 


Syntax: CDFM 


Formats: 


KEKKKAKYE 


*« CCRFM * 


kkk kkkk k 


<Lexic Level><4# of ES entries> 


KKEKKRKKEHKK EMER EKKEKKEKKEKHEKEK EE KE 


* 1111 01 0001 * * * 


REKKAKKKKEKEK KEKE KKK EEEKKEK KE KK KKKK 


CP-Ccae 


* * 

kk * 

* zee & Bits 

* # of EVALUATICN STACK entries 
kk 

* 

xexe« 4 Bits 


Lexic level 


Functior: fefer to CONTROL STACK Mechanism 


CSeENTERED«LLCICSP-1) = CURRENT.-~LL = LL> 
CISPLAYCCURRENT.LLY 3= CURRENT.NSP? 


1. A previously executec MKS has initially set uf 
CONTROL-STACKCCSF<1) 


Ze Since the actual parameters have not yet been put 
on the NAME STACK» CURRENT.NSP has not yet been 
bumped. 


Descriptors for the actual parameters are expected to 
be on the EVALUATION STACK. 


The number €#) of EVALUATION STACK entries specified 
is transferred to the NAME STACK. CAn entry is always 


3-45 


BURROUGHS CCRPORATION COMPANY CCNFICENTIAL 
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48 bits, therefore» an array passed aS a parameter 
will be considered as two 48-bit entries). 


Ge If the name value bit is one it is turned off. 


ee CDFM employs no form of parameter checkirg. 


BURROUGHS CORPORATION 
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CONSTRUCT DESCRIPTOR LOCAL DATA 


Syntax: 


Fertvats 


COLO 


KAKARKAKEK 


* COLD * 


Kak kK KKK 


<# Descriptors><Cescriptor><Descriptor>ee-« 


RRR KKE KKK EKER KKEHKE KEKE KE KK EKKKEKKEAKKKEKEK 


* 111060 GC * * * & ee 
RKEKKKEKEKKEKKKEKEKAKEKKK KEK KEEKKEAKEKARERKEKKEKAKAKEKE 
OP-Ccde t * ; * 

* KRKREKKERAKS 

*k * 

* *« 

* Descriptorss vériatle size 

* (See in-line descriptor format) 

* 

kk« 5 Bits 


Function: 


Specifies numter of descriptors 


The number of descriptors indicates the rumber of 
intline descriptors. These witl te usec as mecels te 
build descriptors on the NAME STACK. 


The descriptors may te simple or array. 


The filler option of the inline descriptecr format 
can never be present. 


Array descriptors cannot have the tLenoth betreen 
entries option present. 


BURROUGHS CCRPORATION COMPANY CCAFICENTIAL 
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SANTA BARBARA PLANT P.Se #2201 2389 
e. khen paged array is not indicated 


f. 


1. 


26 


If the descriptcr is to be selfr-relativer its 
value Caddress fietd) wili be zero. 


If non-selfrrelztives the currert value cf the 
VALUE STACK PCINTER is used as the adcress fieta 
cf the generated descriptor. The VALUE STACK 
POINTER is then increased by the total length of 
the data item. 


When a paged array ts indicated. 


1. The page subscript size option will be 
present. 


2e The address field of the seneratec 
descriptor is set to Q. 


= 
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CONSTRUCT CESCRIPTOR LEXIC LEVEL 


Syntax: 


Format: 


KKKKREKKKK 


* COLL * 


kKKKkKKKK EK 


COLL <Data Address><Descriptor> 


RHEE KEKKK EK EK KEKKKCKKEKEKEKKEEKEKKEKKEARKKK 


* 1111 01 0011 *® Li»ON * * 


REMRKKAKEKKEEKKEKEKKKKEKKKKK KKK KEAKKEEAK 


CP-Code 


Function: 


ae 


* * 

x x 

* *t*x* Descriptors variable size 

® (See in-line cescriptcr format) 
k 

* 

*«e« Varia2tle size» depending cnr 


the type bits in this field 


This operator tuilcs a descriptor on the NAME STACK 
using the in-line descriptor as a mocel. 


The data address is used to find a data cescriftcr in 
the NAME STACK» its address fielo is then usec for 
the address field of the new descriptor. ; 


The data address will never reference a paged array 
descriptor. 
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CONSTRUCT DESCRIPTOR PREVIOUS & MLLTIPLY 


KEKAKRAKKKSK 


* COMP « 


kKkKK Kw KKK 


Syntax: CDMP <#Descriptors><Descriptor ><Descriptor>.ece 
Format: 


RKKKKEKRKKKEEKKEKE KEK KEKE KEKKEEKR KEKE KEAKEKE HK 


* 1111 1C O1C1i « * * x nae 
KEKE KEKE KK KEK AKER EKREKKEKAKREEEKEEKEKKEEEKEREER 
oP-Ccde * * * 

*x RAEKKKRRKEK 
* * 
* * 
* x*exx Descriptorss variabdle size 
* (Refer to in-line descriptcrs) 
& . 
wee 5 BitsSpaecifies number of cdescricgters 


Functions 


ae The number of descriptors indicates the number of 
in-line descriptors. These will be used to otrila 
descriptors on the NAME STACK. 


b. The descriptors may te simple or érray. 


c. The address fiela is calculated using the follcwing 
formula: 
A* = A + L + F + CC#E-1) * LB) 


1. A* - is the new address part. 


2e Am is the address part of the previous entry. 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP 


B1800/81700 SOL S*LANCUAGE 


SANTA @ARBARA PLANT P.S- #2201 2389 

3. bL- ts the lLenoth part of the previous ertry. 

&. F - is the “filler” field in the descriptcrs if 
it is present. 

Se #6 7 is the “number of entries” part of the 
previous entry. 

€~- LB - #5 the “length between” part of the previous 
entry. 

de The previous entry is alwéys assumec to be cf type 


array. It will never te paged. 


BURRQUGHS CORPORATION COMPANY CCAFICENTIAL 
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CONSTRUCT DESCRIPTOR FROM PREVICUS 


Syntax: COPR <#Descriptors><Cescriptor><Descriptor> 


Format: 


RKEKKKKKEE KEKE KEKE KKEKEEKKEKAKEKEKKEKAKRKEKRK 


* 1110 10 * * * * o:0' a's 
KEKE KAEKEKEKEKREEKKEKKAKEKKEEKKEKKKKEREEARK 
CP-Code * * * 

x KKKKKEKEK 
x * 
* Descriptors» variable size 
‘ : 
* 
ake 5 bIts 


Specifies number of cdescriptecrs 
Functian: 
ae The number of descriptors indicates 


in-line descriptors. These will be 
descriptors on the NAME STACK. 


be. The descriptors may te simple or array. 


ce The address portion is generated from 
field in the descriptor anc iirforma 


previous entry on the NAME STACK. 
d. The following formule is used: 
A* = A+tF 


1. A% - js the new gddress pert 


SUL S"LANGUAGE 
ese #2201 2389 


kkk kk keke 


* CCPR * 


KKEEKKEKK 


the rumber of 
usec to buita 


the “filler” 
ticn frer the 
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Ze A - is the address part of the top entry or the 
NAME STACK 


3. =F - is the “filler”, field in the cescriptcr if 


it is present. 


The previous descriptor tuilt may be either simple or 
arraye 


The mew and previous data descriptors cannot be paged 
arraysS. 


BURROUGHS CCRPORATION CCMPANY CCNFIDEARTIAL 
COMPUTER SYSTEMS GROUP B1G007E1700 SLL SmLANCUAGE 
SANTA BARBARA PLANT PeS.e #2201 2389 


CONSTRUCT DESCRIPTOR REMAPS 


Syntax: 


Format: 


CORK 


gekKKKK KKK 


* CORM * 


kakuekk ane 


<Length~Chec k Varient><In-Line Cescriptcr> 


KKK EKKKKKEKKKEKKEKKEKKKEKKEKHKKEK 


* 1111 00 1111 * * & 
KREKEKKKEKEKKEKKKKKKKE KK KEKE KKK KK KK 
OP-Ccocde * * 
* * 
* s*x Descriptors (See in-line 
~ descriptor format ) 
« 
* 


Functions: 


ae 


No Length checking 
Length checking 


* 

* 

+ 

s] 

ne 

OO 

aube 

ce 
ae > 


This operator tcuilcs a descriptor on the NAME STACK 
by using: 


ie The in-line descriptor information 


2@e An address ottained from the adcress field cf the 
descriptor on top of the EVALUATICN STACK. 


when the length check variant 1s set (1) ther the 
length in the inwlLine descriptor is compared tc the 
length field of the descriptor on the EVALUATION 
STACK. If it is greater a run time error will be 
signalled. 


The descriptor on the EVALUATION STACK is removed. 


BURROUGHS CORPORATION 
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LOAQ OPERATORS 


nee a a oh me ae oe ee ee 


NAME 


MAKE CESCRIPTOR 

VALUE DESCRIPTOR 
DESCRIPTOR 

NEXT CR PREVIOUS ITEM 
LOAD 

LCAD ARRAY FIELD ADDRESS 
LCAD FIELD ADDRESS 
LOAD FIELD ADDRESS 
FROM PREVIOUS 

LCAC ADDRESS 

ARRAY LOAD VALUE 
ARRAY LOAD ADDRESS 
INDEXED LOAD VALUE 
INDEXED LCAD ADDRESS 


INDEXED LOAD FIELD ADDRESS 


LOAD LITERAL 


MNE MONIC 


MDSC 


VDOSC 


DESC 


NPIT 


OP CODE 


1111 
1111 
1100 
1iiil 
1101 
1111 


1111 


1111 


0000 
1111 
1101 
1111 
0001 


1111 


0100 


COMPA 


NY CONFIDENTIAL 


Bis8OO/E1700 SDL S“LANCUAGE 


10 
01 
id 
G1 
00 
Li 


11 


11 


O01 
01 


O01 


11 


1010 


1000 


1191 


110C 


000C 


1111 000 


PeSe #2201 2389 


ARGUMENTS 


TYFE-LL-CC 
Ve TYPE~LL-OC 
TYPE*LL~CC 
TYFE» LENGTH 


TYPEsOFFSET»s LENGTH 
TYPE*LL~-CC 


TYPE» OFFSET» 
LENGTH 


TYPE-LL=CC 
TYPE“LL-CC 
TYPE“LL-OC 
TYFE-LL-GC 
TYPE“LL-GC 


-TYPE» CFFSET> 
LENGTH 


TYPE» LENGTH, 
LITERAL 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 
LOAC NUMERIC LITERAL 
LOAC NUMERIC ZERO 

LOAD NUMERIC ONE 


REFER 


LIIN 


ZOT 


ONE 


REFR 


COMPANY CONFIDEATIAL 
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0011 LITERAL 
0101 
0110 


L121 11 1111 100 
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ARRAY LOAD VALLE 


Syntax: 


Formats 


AL 


KRREKEKEKEKKEKERAARAKKEKKEAKEK 


* 1111 O12 1100 * LL*ON * 


KKK AKK KEKE KEEKEKKEEKEKEK 


OP-Ccde 


Functicns 


ae 


wk&KXKKKEK 
* AL « 
KEAaEKKKK 
<Data Address> 
* 
x 
xxx Variabte size depending upon tyce 
bits in this field 
The Lexic Level» Ceccurrence Number pair (Cata 


Address) is used to address an entry in the NAME 
STACK. . 


te NAME STACKC{CDISPLAYC(LL )40N) 
The towrorder 24 bit field of the subscrirt on top of 
the EVALUATION STACK is compared to the “number of 


entries" field of the descriptor. If creater than or 
equal an invalid subscript error cccurs. 


If the paged array tit of the descriptor is off (not 
raged) then: 


1. The array descriptor is subscripted ard a simple 


descriptor 1s generéeted or the top cf the 
EVALUATION STACK» describing a copy of the vatue 
a f the setected element cf the array. This 


descriptor will be selfr-relative if the Length of 
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the value is less than 24 bits» otherwise it will 
be nonwsselfereléetivers its namewvalue bit cnr and 
the value on top of the VALUE STACK. 


Ge Paged arrays only. 


1. 


If the address field of the descriptor is Op 
(page table rot yet allocated) then: 


a) The address of the current instructien CAL or 
ALA) 1s pushed onto the PRCGRAM PCIANTER 
STACK. 


b) A copy of the subscript is pushec ortc the 
EVALUATION STACK. 


c) The baserretlative bit adcress (in the NAME 
STACK) of the paged array cescrigtcr is 
pushed onto the EVALUATION STACK. 


d) The Me-nachine state is saved Cin 
basesrelative form) in RSsMeMACHINE. 


e) The segmerts whose segmert number is given in 
RSe«INTRINSICS LOC,» is enterec at cisplacerenrt 
0. €This is the memory managerent intrirsic). 


f) Upon exitr execution will begin at Step a. 


The address field poirts to the first entry in 
the page table. The subscript is shifteco to the 
right by the number of bits indicated by the page 
subscript size. The resulting number (the paae 
table subscript) is used to access the page .table 
entry. 


If the presence bit in the page table entry is 
off then: , 


a) The address of the current irnstructicn is 
pushed onto the PRCGRAM PCINTER STACK. 


b> A copy of subscript is pushed ortc the 
EVALUATICN STACK. 
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COMPUTER SYSTEMS GROUP 


COMPANY CCNFICENTIAL 
Bi8s00/81700 SOL S=LANGUAGE 


SANTA BARSARA PLANT PeaSe #2201 2389 
c) The tcaserrelative bit acdress cf the fage 
table entry is pushed on to the EVALUATION 
STACK. , 
d) Execution gces to Step deled)-.- (The «memory 


manager 


to the page. 
subscript 
bits of the sutscriot. 


This 
into 
on 


the page. 


$ize 3s extracted from 


number Cpace subscript) 


is entered). 


The address field of the oage table entry foints 
The number of bits indicated by page 
crder 


the low 


is generated 


in Step 


is used to subscript. 
A simple descriotor 


the top of the EVALUATICN STACK as Ce 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARGARA PLANT 


ARRAY LOAC ADDRESS 


Syntax: ALA <Data Address> 


Format: 


KRKKEKKEKRKEKEKKKAKKKKEKEK 


* 1101 O1 * LL»ON * 


KRHA KKKAE KK KEK KKKKKEKK 


OP-Code * 


& 
xxx Variable size» 


COMPANY CUNFIUENTIAL 
B1i800/B1700 SDL S-LANGUAGE 
PeSe #2201 2399 


KKKAKKKKK 


* ALA * 


kKaeEKKaAKEK 


depending upcecn the 


type bits in this field. 


Functicn: 


The execution of ALA 
load» except that the 


EVALUATION STACK 


roints to the array 
capy. (See sten col of AL). 


identical to that of array 
resulting 
always neneselfr-relative and 
element ittself rather than 


descriptor cr the 


BURROUGHS CCRPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP 


B1890/61700 SCL S~LANCUAGE 


SANTA BARBARA PLANT PeS. #2201 2309 


DESCRIPTOR 


Syntax: 


Formats: 


kkk ak kek 


* DESC * 


kKkEKKEKKKKEK 


DESC <Data Address> 


REKKKAEEKEKEKKKEKKKKEKEKE 


* 11C00 1C * LL»ON « 


RKEKKKKEKEKEKEEKEKEKKKKKEK 


OP-Code 


Functions: 


* 

* 

xx* Variable size cepending upon 
type bits tn this field. 


oo 


The Lexic Levels Cecurrence Number pair (Data 
Address) locates a cescriptcr ir the NAME STACK. The 
descriotor may pe either simple cr array. 


A descriptor (4& bits) is generated on the EVALUATION 
STACK that points to the cescriptcr ir the NAME 
STACK. The Length field of the new cescriptcr will be 
48 or 96 depending cn the type cf the cescripntcr iin 
the NAME STACK. Its type will be EIT. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


INDEXEO LOAD VALUE 


* 


| syntax: IL <Data Address> 


Formats 


RKEKKEKEKE KEKE KE EEKEKKEKEAKEK 


* 1111 01 CCCO * LL-ON * 


KHER KA KEKKEKEKHKEKKKKKKK 


CP-Ccode * 


COMPANY CCNFICEATIAL 
BiBOO/E1700 SCL S“LANGUAGE 
PeSe #2201 23589 


kKakknke 


* JL * 


RakKKK 


Function: 


* 
tex Variable size depending on the 
type tits in this fielc. 


ae The Lexic Level» Cccurence Number pair (Cata Address) 
locates a descriptor in the NAME STACK. ; 
be. The descriptor must be nonv-seltfrretative. 
ce khen the descriptor is non-arrays thene 
1s An operand (which is the tndex) is taker off the 
top of the EVALUATICN STACK. <A cepy of the 
descriotor = in the NAME STACK is ther pushec_ cntc 
the EVALUATION STACK and its acdress fielc is 
incremented by the index. 
ce The resultine éeddress descriptor is then mace a 
value by copying the data to the top cf the VALUE 
STACK» changing the address field ana setting the 


Name-Vvalue bit. 


BURROUGHS CORPORATION COMPANY CCNFICENTIAL 
COMPUTER SYSTEMS GROUP BLEQO/E1700 SDL SmLANGUAGE 
SANTA BARBARA PLANT P.S. #2201 2389 


Ge When the descriptor is an array descriptors 


1. 


Same as cas@ Ce abovery except only the first 48 
bits of the NAPE STACK cescriptor are pickec up 
and the array bit is turned off in the type 
field. 


The array descriptor cannot be type PAGED. 


BURROUGHS CORPORATION | COMPANY CCAFIDEANTIAL 
COMPUTER SYSTEMS GROUP BiBOO/EIZOU SCL S-LANCUAGE 
SANTA BARBARA PLANT PeSe #2201 23869 


INDEXED LOAD ADDRESS 


Syntax: 


Ferrat: 


ILA <Data Address> 


KEAKKKEKKEKKKKKEKEKEK 


* 0C0O1 * LLeON * 


KEKE KEKEKKKKEKAEKE 


OP-Ccde 


Function: 


xxx Variable size depending on the 


type bits in this field. 


Indexed load address functions the same as irdexed 
load values the only differerce beirg that the 
resultant address descriptor is rot converted to a 
value (Step c.2 of IL is omitted). 


BURFOUGKS CCRPORATION COMPANY CCNFICENTIAL 
COMPUTER SYSTEMS GROUP B81800/81700 SDL S “LANGUAGE 
SANTA BARBARA PLANT PaSe £2201 2389 


INDEXED LCAC FIELD ADDRESS 


Syntax: 


Format: 


RKKkKeaAKKEK 


* ILFA * 


kkttwkeke 


ILFA <type><offset>€<lLength>] 


Re KEK KEE KK KKK KEE KKK KEKE KAKEKEKKEHARKEKKAEEK 


* L111 £1 1111 O00 « * * * 


RHEE KEKE EK KKHKKKK KARE KKEKKEEAKKKRAKE EK 


OP-Code 


Function: 


* * « 

& a * 

* a eax Length Copticnal) 
* * a 

& xxa Offset 

r 

xxx Type 


Using the value on top of the EVALUATICN STACK as the 
base area» the user toads a subfield to the 
EVALUATION STACK by SUBBITtirg according to <cffset> 
and <lLengtn> and builds type as specified by <type>. 
This S-CP is only used for irdexing layouts (as 
REMAPS BASE items) end shoulc eventually de fhased 
cut. 


1. <TYPE> is 3 tits encoded «és fcllcws: 


0 BIT 3 BIT €1) 
1 FIXED 4 BIT €24) 
2 CHARACTER Swf UNDEFINED 


20 <<OFFSET> is 9 or 17 bits» depending cn the first 
bit. 


2, <LENGTH> is 6 or 17 bits» defencing cr the’ first 
bit. <LENGTH> is not opresert if the tyre is 
FIXED» BIT €1)» or BIT (24). be 


BURROUGHS CCRPORATION | COMPAKY CCAFICENTIAL 


COMPUTER SYSTEMS GROUP . Bi8O00/E1700 SCL S*LANGUAGE 
SANTA BARBARA PLANT PeS- #2201 2389 
LOAD VALUE 


Syntax: 


Format: 


kaxakkeaeaek 


* L t 


keke eat 


L <Data Address> 


KREEKKEKEKEKKRKEKEKEKEKKKEK 


* 1101 00 * LL-ON * 


RKKKENRKKEKKKEKK KKK KKK EK 


OP-Code 


Functicn: 


* 

* 

*x*x* Variable sitzer depending on 
type bits in this field. 


os 


The Lexic Level» Occurrence Numter pair (data 
address) is used to address the NAME STACK. 


1. NAMESTACKCOLSPLAYCCLL)+0N) 


de The descriptor et this location must not be an 
array descriptor. 


when the descrigtcecr is selferelative or 
roneself-relative with a length less than or equal te 


va a selfrrelative descriptor is fut on the 
EVALUATION STACK. . 


BURROUGHS CORPORATION COMPANY CONFIDEATIAL 


COMPUTER SYSTEMS GROUP 


Bi8O00/E1700 SCL S~LANCUAGE 


SANTA YVARBARA PLANT PeSe #2201 2389 
\ 
Ce When the descrirctor is noneselfrrelative with a 

_length greater than <4: 

1. The descriptor is copied to the top of the 
FVALUATICN STACK with the adcress fiela mocified 
to point to the top of the VALUE STACK. 

2- The data item is moved to the top cf the VALUE 
STACK. 

3. The VALUE STACK POINTER is bumped by the size of 


the data items. 


BURROUGHS CORPORATION COMPARY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP © B1800/B1700 SCL S*LANGUAGE 
SANTA BARBARA PLANT PeSe 42201 23399 


LCAD ADDRESS 


kakkkitk 


* LA * 


gkakkee« 


Syntax: LA.<Cata Address> 
Format: 


KWAK KEKEKKKKKKAKKEK 


* Q000 * LLrON « 


KRKEKKKKKKKKKEEKKEEK 


OP-Ccde * 


x 


wee Variable size» cderending on the 
type bits in this field. 


Functicn: 


ae The Lexic Levet» Cccurence Number pair (Data Adcress) 
1s used to address an entry in the NAME STACK. 


le NAME STACKCOTSPLAYCLL)40N) 
be. If the descriptor ét that location is ar array type 


the 96 bit descripter is copied to the EVALUATION 
STACK. 


BURROUGHS CORPORATION . COMPAKY CCNFICEATIAL 


COMPUTER SYSTEMS GROUP 


BI8O00/E1700 SEL S~LANGUAGE 


SANTA BARBARA PLANT P.Se £2201 2369 
ce If the descriptor at that Location is a nonvarray 
type then: 

1. If the data item is selfrretsative then build a 
descriptor on the EVALUATION STACK using the type 
and length frem the NAME STACK and the adcress of 
the leftmost bit of the data item. Change the 
type of the new cescriptor tc ron-self-relative. 
The data itself remains in the address portior of 
the descriptor in the NAME STACK. 

2e If the data item is nonsselfrrelative then the 48 


bit descriptor is copied to the EVALUATICN STACK. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


LCAD ARRAY FIELD ADDRESS 


Syntax: LAFA <type> C<length>] 


Format: 


RKKEKKEEK KKK KER EKEKAKEKKKEKKAKKEKRKAAKA LK 


* 2111 11 2111 011 * * 
KKK KKK KEKE KEK KEKE KKKEKKEKKKEKEKK 
OP-Code * 
* 
* 
‘tk 
kx*« Type 


Function: 


3I"OY 


COMPANY CCAFIOENTIAL 
Bl8OO/E1L700 SPL S“LANGUAGE 
PeSe #2201 2389 


kkKKkKKRaKKSK 


* LAFA * 


RKKRKEKKEK 


axe Length Coptional) 


The top operand cn the EVALUATICN STACK is an array 
subscript; the next-to-top operand is a scaler .string 


which is to te 
element's type 


as @n array with each 


Length given by <type> and 


<length>. Load a descriptor of an element cf this 
implied field» using the given subscript. Check array 
bounds by using the length field of an array area 


cescriptor. 


377 u 


BURROUGHS CCRPQRATION COMPANY CONFIOENTIAL 
COMPUTER SYSTENS GROUP - §61800/81700 SEL S"LANGUAGE 
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LCAC FIELD ADDRESS 


kakKkrek« 


* LFA * 


RKKKEKEKEK 
Syntax: LFA <type><offset>€<lenoath>)<data address> 
Format: 


RARE KEKKKEKEEERKEEKEKKEKKEKKAKRKEEEKEKKEKHADAREKEKEEEKKEKKEKK 


* LL11 11 1111 OO1 « * * * LL»ON « 
KEKE KKKEAEEKAEKEKEKKKKEKEKEKEKEKEKEMREAKEKEKEKKEKEEEKKAKE 
OP-Code * * te * 

x * * * 
nS * * *ex«eVariable size 
x * * cepencing on tyre 
* * * tits in this field. 
* * x 
* * *& 
* * «ee Length Copticnal) 
* x 
* t 
x ance Cffset 
* 
* 
kx«Tyoe 


Function: 


Using the descriptor at <datae address> to describe 
the base area the user tloads a subfiela tec the 
EVALUATION STACK ty SUSBBITting according to <offset> 
and <length> and tuilds type as specifieo by <type>. 


1. <Type> is 3 Fits» encoced 


0 BIT 3 BIT €1) 

1 FIXED 4 BIT €24) 
2 CHARACTER 5-7 UNDEFINED 
etc. 


2. <Offset> is 9 or 17 bits» depending on the first 
bit. 


3. <Length> is 6 or 17 bits» depending cn the first 
bit. <Length> is not opresert if the type is 
FIXED» BIT C1)» or BIT (24). 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


LOAC FIELD ADDRESS FROM PREVIOUS 


Syntax: 


Format: 


s"7 1 


COMPAKY CCNFIOCENTIAL 
B1800/B1700 STL S-LANGUAGE 
PeSe #2201 2389 


KEEKKKKK 


* LFAP « 


kkkek&kkkek 


LFAP <type><offsetolC<lencth>]) 


REE KK KEKE KEKEKKKEKKKKEKKKEKAKREKKDRKKKKA 


* 2111 L1 1211 G15 * * * 
RK KKME KK KEKE EKER KEKE KERKNK EK KHRAKPRANEKEK KH 
OP-Code * * * 

x * x 

* & kk*e Length Coptiaonal) 
« * 

* * 

* ce«x Cffset 

x 

x 

zx Type 


Function: 


Using 


to describe the tase area» the user leoacs a 
to the EVALUATION STACK cy 
and <length> and builds type as specified by 


<offset> 
<type>. 


the descriptor on top of the EVALUATICN 


STACK 
subfielc 


SUBBITting accerdirg te 


1. <Type> is 3 bits encoced as fellows: 


0 BIT 
1 BIT 
2 BIT 


2. <Offset> 
bite 


3. <Length> 
bit. 
FIXED» BITC1)» 


(<Length> 


3 BIT ¢€1) 
4 BIT (24) 
577 UNDEFINED 


is 9 or 17 bits» defpenacing cr the first 
is 6 or 17 bits» depencing cr the first 
is not presert if the type is 


or BIT(24).) 


BURROLGHS CORPORATION COMPANY CCNFICEATIAL 


COMPUTER SYSTEMS GROUP 


B1800/E1700 SCL S-LANGUAGE 


SANTA BARBARA PLANT PeSe #2201 2389 


LOAD LITERAL 


kKaetKKtK EK 


* LIT * 


kKaKKKKSK 


Syntax: LIT <Type><Length><Literal> 


Formats: 


KAEKKKKEKEKEKKEKEEKEKEKAKKKEKEKEKKEKEKEEKKARASK 


* QOL100 * 


* * 


KEKEKKK KK KEKKEKEKKKKKE KE KAKA KEKE KER 


OP-Ccede 


Function: 


* 


« 
& 
* 
* 
* 
& 
* 
* 


This 


* * 

x « * 

* axe Literals» 24 bits if selfrrelative 
* 

* 

«exe Length cf literel.» 16 Lits 


xx 8 bit descriptor type field tells if literal 
is self-relative or noneself-relative 


operatcr toads a constant to the top of the 


EVALUATION STACK. 


le 


When the Literal is selferelative (less than or 
equal to 24 bits) the operator pushes the’ type» 
length» and tLiterat onto’ the tor of the 
EVALUATION STACK. 


When the titeral tis nenw=selfrrelativer the type» 
Length and VALLE STACK pointer are moved te the 
top of the EVALUATICN STACK end the Literal is 
placed on top of the VALUE STACK. 


For literals less than twenty four bits in lergth 
the <tliteral> field must be twerty fcur bits Long 
in the code file even though the <Length> field 
specifies that the actual data is tess than 
twenty four bits in length. 


BURROUGHS CORPORATION COMPANY CCNFICEANTIAL 
COMPUTER SYSTEMS GROUP . Bi8O00/E1700 SCL SLANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


LOAOQ NUMERIC LITERAL 


kKEKKKKEK 


* LITA «* 


KAKEKKAK K 
Syntax: LIIN <Literat> 


Format: 


KKKKEKEKKKKEKEKEL 


s 


* OOLL * * 
KREKKKEKKKEKKKKEEKK 
OP-Ccde * 


* 


«xe 10 Bit Literal 
Functions 


This operator loads a 10 bit literal to the tcp of 
the EVALUATION STACK as 4 FIXED» selfe-relative data 
item. 


BURROUGKS CCRPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1800/B1700 SDL S-LANCUAGE 
SANTA BARBAKA PLANT PeSe #2201 2389 


MAKE DESCRIPTCR 


wWkekkaekaene 


* MCOCSC « 


KEkKKKkKkKKK 


Syntax: MOSC 


Format: 
kketekenkkreraek kak kek & 


* 1111 10 i610 * 


REKKKKEKKKKKAKEKKSE 


oP-Ccde 
Functicns 


ae A descriptor is expected to be on the EVALUATICN 
STACK. 


be. This cescriptor must describe another descriptor. 


Ce This second descriptor €468 cr 96 bits) is copied to 
the EVALUATION STACK after cuttirg back the criginal 
descriptor. 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP BLre0d0sE1700 SCL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


NEXT Ok PREVICUS ITEM 


RKKKKAKKEK 


* NPIT * 


KKKARKKKEK 


Syntax: NPIT <Next or Previous Bit><Data Address> 


Format: 


RARE KKKKEKKER KEKE KKH E KEKE KKKKE EEK 


* L111 O41 1101 * * LL»ON * 
KEKKKKKMK KKK KEKE KEKRKEA KEKE KK RE KK 
OP-Ccde ® x 
° * * 
® xxx Variable size» depencing on 
x type bits in this field. 
* 
ss : 
wee | Bit 
OQ => Previcus 
i => Next 
Function: 
ae The Lexic Level» Cccurrence Number pair {(Cata 
Address) describes a nonveself-relatives mnon-array 


descriptor at 
NAMESTACK CDISPLAYCLL)+0N) 
BRAKE KEKEEKERKKARAKEKE 


* T * L * A * 


REERKKEKKKKEEKKEKKKEKEK 
be. The descriptcr is then modified 
KREEKKKKARKKNRKAKKAKKE 


& T* « L?* « A® « 
KEKRKKKKKKAKRKE KAA EE 


BURRUUGHS CORPORATION COMPANY CCANFIDENTIAL 
COMPUTER SYSTEMS GROUP BLE00/B1700 SCL S“LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


1. Previcus 


3) Tf = 7 
Lt =L 
At = AwL 

fe Next 

a) Tf = TJ 
L€ =L 
At = AtL 

Ce The modified descriptor replaces the olc cdescripftor 


and a copy is also placed on the EVALUATICA STACK. 


BURROUGHS CORPORATION COMPANY CCAFICEATIAL 
COMPUTER SYSTEMS GROUP . BLEOO/B1700 SCL SmLANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


LOAD NUMERIC ONE 


kkKaEKKEKK 


* CNE * 


KKEKARKK 


Syntaxs ONE 


Format: 


KKKKKKKEK 


* QO110 * 


kkekkkakktk 


OP-Ccde 
Function: 


This operator causes a FIXEC» self-relative 
descriptor containing a ene (1) to be phaced cr the 
EVALUATION STACK. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


REFER 


Syntax: REFR <Length> 


Formats: 


KRKEKKKEEKHKEKEKEKKEEKKEKKEKKKEK 


* J1I11 1121 1111 100 « * 
KKKRKKCKKKE KEKE EAEKEEEKEKEAEKKEK KE KKK 
OP=Code & 


« 


txkexelLength (6 or 
first oit). 


Functions 


COMPANY CONFIDENTIAL 
B1800/B81700 SDL S-LANGUAGE 
PeS.e #2201 2389 


ee ee 


* REFR * 


kKxkktkrekrk 


17 cits dependirs on the 


Chances the descriptor on the top of the EVALUATION 


STACK to have the adaoress of the second oaperara oon 


the EVALUATION STACK. 


The tength of the second 


cperand is compared to the tength incrlirew [f not 
equal,» an excention 15 given. 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


VALUE DESCRIPTOR 


Syntax: VOSC 
Formats 


KRKKKEKEKKKKKEKKAKKEK 


* 1111 01 10C0 * 


KKEKKKKK KK KK KaEKK 


CP-Code 


Function: 


COMPANY CONFICENTIAL 
BL800/E1700 SCL S"LANGUAGE 
PeSe #2201 2389 


KKEKKKaAKK 


* VCSC « 


KKKKKRKK 


a@e A descriptor is expected to be on the EVALUATION 
STACK. The follcwine conditions are expected» but NOT 


checked: 


1. The namesrvalue bit must be CFF. 


Ze The nonwselfrraiative bit must be CN. 


3. The descriptor is always 48 bits. 


be The descriptcr is moved to the VALUE STACK. 


ce The descriptor an the EVALUATION STACK is replacec by 


a 48 bit» 


nonwself-relative descriptor that poirts to 


the descriptor just moved to the VALUE STACK. 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1800/761700 SDL S-LANGUAGE 
SANTA BARBARA PLANT . PeSe #2201 2339 


LOAC NUMERIC ZERO 


zaaakk«e 


* ZOT * 


kKkKa&kknt 


Syntax: Z06T 


Formats 


kek&kekkkk 


* QO101 * 


KRaKKKKKEKEK 


CP-Ccde 


Function: 


This operator céeuses a FIXED» self-relative 
descriptor to be generated and placéec on the 
EVALUATION STACK. The descriptor will contair the 
numoder zero. 


BURRGUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


STACK OPERATORS 


BUMP VALUE STACK POINTER 
CUPLICATE 

DELETE 

EXCHANGE 


FORCE VALUE STACK 


MNEMONIC 


OP 


COMPANY CCNFIDENTIAL 
81800/81700 SOL S“-LANGUAGE 


P.S. 
CCDE 
1C 1011 
0¢ 
CC 0011 
00 
01 


#2201 2389 


ARGUMEATS 


3-81 


BURROUGHS CCRPORATION . COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP 


B1800/81700 SOL S~LANGUAGE 


SANTA BARBARA PLANT PeSe #2201 2389 


BUMP VALUE STACK POINTER 


Syntax: 


Format: 


BVSP 


RAEKkKKaA KKK 


* BVSP «* 


kkk KK AEKEK 


KEKKEKKKEKKEKKEKE 


* 11112 10 1011 * 


KREEKKKKKKEKKEKEEK 


OP-Ccde 


Function: 


NOTE: 


The descriptor on the top of the NAME STACK must bce a 
simple» nonceself-relative descriptors that points tc 
the top of the VALUE STACK. 


The tow order 16 bits of the value described by the 
descriptor on the tcp of the EVALUATION STACK are put 
into the length field of the descriptor cn top cf the 
NAME STACK. 


The top of stack pointer for the VALUE STACK is 
incremented by this 16 bit value. 


This operator is not generated by the SDL compiler after 
the IV.0 release. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


DELETE 


Format: 


KEKE KAKKEKKKEKN H 


* 1111 00 0011 * 


EKKEKKEKEKKKKEKKEKKEK 


OP-Cade 


Function: 


S755 


COMPANY CONFICENTIAL 
BIBOO0/EL700 SEL S-LANGUAGE 
P.Se #2201 2389 


kk kk hk 
* DEL * 


kakkkaen 


The top descriptor on the EVALUATION STACK is deleted 


along with 


its associated value in the VALUE STACK if 


the name=~vwalue bit is on. 


BURROUGHS CORPORATION COMPANY CCNFIDEATIAL 


COMPUTER SYSTEMS GROUP B1l8OO/E17C0 SCL S“LANGUAGE 
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DUPLICATE 


Syntax: DUP 


Format: 


KeKaEKKKEEKKEKK K 


* 1100 QC * 


kKKKKKkKKKKKEK 


OP-Code 


Function: 


ae 


kKkKeEKAKEK 


* DUP * 


kak akkk&KK 


This operator tzkes the 4@ bit (simple) cescrirtor on 
the top of the EVALUATION STACK» curplicates it 
exactly and pushes it onto the top of the EVALUATION 
STACK. 


If the name-rvalue bit is on» the VALUE STACK pertion 
witl not be duplicated. 


5785 


BURROUGHS CCRPORATION COMPANY CCNFIDENTIAL 
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FORCE VALUE STACK 


KKARKKKEK 


* FVS * 


KRaEKRKKKEK 
Syntax: FYS 


Format: 


ke kk kK RK KKK 
* 1100 01 * 


RKEKKKKEKKEK EK 


CP-Caode 
Function: 
ae An operand is expected to be on the EVALUATION STACK. 


be If the operand ts a non~self-relative value» no 
action is taken. Otherwise the cperand is cenvertea 
to a non~selferelative value by copying its data to 
the top of the VALUE STACK, setting its cescriptcr's 
address field to the copied data anc changine the 
type field to nonwselfrrelative value. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


SANTA SARBARA PLANT PeSe 


EXCKANGE 


Syntax: XC 


Format: 


KKK KEKK 


* 1011 OC * 


RaeKKKKKKKEK 


CP-Ccae 


Function: 


* 


COMPANY CCNFIDENTIAL 
B1iBO00/E21700 SCL S“LANGUAGE 


#2201 2389 


KeEAKRARSE 


* XCH * 


eanknkekce 


This operator swaps the two top descriptors 


EVALUATION STACK. 


Soth entries will always be 48 bit 
descriptors. 


The Namervalue bit may ce set in ones but 
of the descriptors. 


or 


the 


Csinmple) 


rot 


octh. 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
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PROCECURE OPERATORS 


NAME MNEMCNIC | CP CCDE ARGUMENTS 
CALL CALL 0111 TYPE-SEG- 
| PAGE-DISP 

IF THEN LETH 1001 TYPE-SEG- 
PAGE-CISP 


If THEN ELSE IFEL 1101 1C ADCR TYPEsTYPE= 
| SEG@=PAGE-OISP 


CASE CASE 1111 01 0100 # CF ALOR» ACCOR 
TYPE» TYPE-SEG- 
PAGESCISPreaee 
TYPE*SEG*PAGE= 


: | DISP 
UNDO UNDO 1000 | # CF LEVELS 
UNDG CONDITIONALLY UNCC 1111 01 0011 # CF LEVELS 
RETURN RTRN 1111 01 0101 # OF LEVELS 
RETURN FORMAL CHECK RTNC 1111 11 1101 CO1 # CF LEVELS» 

TYPE*+LENGTH 

EXIT EXIT 1101 11 # OF LEVELS 
CYCLE CYCL L110 11 DISPLACEMENT 
MARK STACK MKS 1011 11 | 
MARK STACK ANC UPDATE MKU 1111 01 1111 LL 
ENABLE-DISABLE INTERRUPTS EDI 1111 11 0101 °° 
EXIT-ENABLE INTERRUPTS XTEI L111 11 0110 Ve# OF LEVELS 
CO-ROUTINE ENTRY CNTR 1111 11 1010 000 


CQO“FOUTINE EXIT CxIT 1112 211 1010 001 # OF LEVELS 
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CALL 


eRaKkaekaeen 


« CALL * 


KKEKKKKK 
Syntax: CALL <Code Address> 
Formats 


RAKKKKEAEKKEKEKEK K 


* QO111 « * 
RKKKKKAKEKEK KEK KEK K 
OP-Code & 


* 
xxe Type» Segment» Displacement 


Functicn: 
ae The code address type may not be of type "null". 


be The location (page number » segmert number» 
displacement ) of the first bit fcllcwirng the 
instruction is pushed inte the PROGRAM PCINTER STACK. 


Ce The code address in the instruction is used as the 
address of the next instruction to execute. This may 
require a tloaok‘up in the segment dictionary to locate 
the segment. 


3~ OF 
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CASE 


RaEKKKEKEK 


* CASE * 


KKKKKEKEK 


Syntax: CASE <# of Code Addresses><Address Type> 
<Ccde Address><Code Address> eeeae 


Format: 


REE KEKEKE KEKE KKK KEKK KEKE KKK KKK KKKKEKRK EAE KKRAKEKEKKE 


* 1111 01 C1CG *« * * * & * 
KRERKKKEKREKREEKKEKKHEKNKEKEK KEKE KEKKEEKEEREHREKEKAKAKKEKA RK 
CP-Cade * * * * 
* x KKK KAKEKEKEKEKEKK 
x x * 
« * & 
* te cae CALL addresses are 
* * of types specifiec 
* * by <Address Type> 
x * unless they are 
* * null). 
* * 
* **x* I Bits Code 
* adcress type 
x 
zexe B Bits 


# of addresses 


Function: 


ae An operand ts expected to be aon the EVALUATION STACK. 
The value of this operand is usec to select one of 
the code addresses. 0 salects the first address» 1 
the seconds etc. 


b. When the value is out of range» an error interrupt 
CCCULSe 
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ce When the proper address has been isolated a “CALL” is 


rerfcormed on that édcress. 


Any of the addresses nay be null addresses (type 
field=111) in which case the rest of the accress will 
be padded with zeros Cever though the type is rull 
the address size is the same as the nor=rull 
addresses). 


kKhen anull address is selectec the cperaticn is 
terminated. 
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COROUTINE ENTRY 


Syntax: CNTR 


Format: 


EKER KKREKEK 


*« CATR * 


kak KK KKK 


KHHEAKKAEKKEKEKKKA KKK KKKEK 


* 1111 11 1610 coc « 


KREKKEKEKEKKKEKEKKKKEKKEKK 


OP=-Code 


The table asscciated with each of the cocroutine operators has the 
following fermat. 


DECLARE 
O1 TASLE> 
O02 NUMBER.OF.ENTRIES BITC4)>» : 
O02 ENTRY.~ADDRESS BITC32)>» 


Functions 


ae 


02 PPS.COPY(1E) BITC32)» 


The descriptor on the top of the EVALUATION STACK 
will contain the address of TABLE. 


The current code acddress is pushed onto the PROGRAM 
POINTER STACK. 


‘ 


The number of elements of PPS.CCPY» specifiec by 
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NUMBER-OF-ENTRIES is pushed cnto the PRCGRAM PCINTER 
STACK. 


de. The address of the next instruction is taken from 
ENTRY-ADDRESS. 
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CO~FOUTINE EXIT 


KRaKAKREKKE 


* CXIT * 


KKaEKKKKKEK 


Syntax: CXIT <# of Levels to exjt> 


Format: 


RHEKKEKEKAEKEKREKEKKEKKEKEKEKKKKKKEK 


* {111 11 1010 CO1 « * 
KRKEKKKKEKAREKKAKEKEKEKEKEKEK KKK K 
OP-Cccde * 


& 
xxx 4&4 Bits» specifies rumter 
of levels te exit. 


See CNTR for TABLE format. 
Functicn: 


ae The descriptor on the top of the EVALUATION STACK 
wilt contain the address of TASLE. 


be. Number of Levels is stored in NUMEER.CF-EATRIES. 
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ce The current code adoress is stored in ENTRY-ACCRESS. 


de» The number cf entries on the top of the PROGRAM 
POINTER STACKs Cspecified by # cf levels) is ccpiea 
to PPS.COPY (0) through FPS.COPY C# CP levels-1) if 
the # of Levels is 0» nothing is copied. 


ee An UNDO is performed» using the # of levels as_ the 
number of entries tao pop off the PRCGFAM PCINTER 
STACK. 
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CYCLE 


Syntaxs 


Format: 


kkekikkauke 


* CYCL * 


REKEAKEKKK 


CYCL <displacement> 


WHAKKEKKEKKEKKHEEKKEKEKKEK 


* 1110 11 * 


® 


RHEKAKKEKKAEKKKEEKKEKEK 


CP-Code 


Function: 


* 
*« 


*xx 12 bits» specifies the relative branch adaress 


fe 


wKhen the twelve bits are read by the precessore the 
program pointer will point the the first bit of the 
next instruction. 


The twelve voit disclacement is ther subtracted from 
the program pointer to give a new next instruction 
address. 


This operator does not cause a charge in code 
segment. ; 
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ENABLE DISABLE INTERRUPTS 


Kkeikkt&ktk 


* EDI «* 


kRaKKKKEK 


Syntax: EDI <Enablerdisable tit> 
Format: 


REAEKHKRKKKEKEKEKEKKEKE 


* T1111 11 O101 *« * 
KKEAKKAKEEKEA KE KK A KEK KK & 
CP~-Code * 


kee 1 bite 0 => Enable 
1 => Disable 


Function: 


Disable 
ae Disable extracts frem the interrupt aqueue ai high 
priority interruct and claces the ports charnel» ana 
reference address associated with it cn tep ef the 
EVALUATION STACK. 
be The MCP*'s highwpriority interrupt handlirg routine is 
entered (via a CALL). If there is sno high priority 
interrupt in the queue the next in tire S-cp is 
executed. 
Enable 


ae Enable checks the interrupt queue for a high pricrity 
interrupt, if one exists it places the associated 
port» channel» anc reference address in the 
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EVALUATION STACK. 


A CALL to the MCP*s high priority interrupt hardling 
routine is then rperformed. If no high priority 
interrupt exists an UNDO is performeds to termirate 
handling of high pricrity interrupts. 


NOTE: For MCP use only. 
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EXIT 


KEARKREKKAEKK 


* EXIT * 


kaka kaunan 


Syntax: EXIT <# of Levels> 


Format: 


KKKKKHKEKKEKKEKEKEKKAKKEKK 


* 21101 11 


§ t& 


KRaEKKKKKKKEKKKKKKKEKKE 


OP-Coce 


Functtcn: 


ade 


& 
* 


xexe Number of tevels to exit (4 bits) 


Refer to Control Stack Mechanism 


CISPLAY and cCONTRCL STACK are updated by 
following alcorithm: 
CURRENT.NSPS=CS~NSPCTCSP2=CSP2s=CSP1)> 
CURRENT.VSP3=CS.-VSPCCSP)> 

DO SEARCH FOREVER: 


IF CSeEXITED-LLCTCSP) = 0 THEN UNODC SEARCH? 


the 


IF CURRENT.LL = CSsENTEREC.LLOTCSPFS=TCSF-1) THEN 


DO> 
DISPLAYCCURREANT.LLIS=CS.NSPCTCSP), 
UNDO SEARCH; 

ENDs 


END SEARCH; 
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CURRENTeLLS=CSSEXITEDLLOI CSP) > 


be. An UNDO is oerformed on the PRCGRAM PCIATER STACK» 
using the number of Levels given in the irstruction. 
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IF THEN ELSE 


PeSe #2201 2339 


kkk RK KK 
* IFEL * 


KKKKRKKKK 


Syntax: IFEL <Address Type><Code Address><Code Accress> 


Fermat: 


KER KKKEK WE KEKRKHEKEKEKEKEKEK KEK KEKKEKAKEAE 


Displacement 


* 1101 10 * * * * 
REE KKA KH KEKKEEKKEKEKRKEKEAKK KK KKK KK KKK KE 
OP-Code * * & 

* * * 
* * axe Types» Segment» 
x * 
x * 
* x*k* Type» Segments Displacement 
‘ 
« 


tx*x Address Typesr 7 Bits 


The type of poth code addresses must be the sare 


Type>»j The coce address may not be of type “null”. 


Function: 


as the <Adccress 


ae An operand is taken from the EVALUATION STACK. The 


rightmost bit of the value of 
examined. 


True 
False 


oO 
wo 


be If true then» 


te. A CALL instruction is executed 
code address. . 


the oferana i-s 


usirg the first 


3-101 


BURROUGHS CORPORATION COMPANY CCNFIDEATIAL 
COMPUTER SYSTEMS GROUP B1800/E1700 SCL S-LANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


Co If faise then» 


1. A CALL instruction is executed using the second 
code address. . 


d.. The return code adcraess that is pushec. inte the 
PROGRAM POINTER STACK by the call points te the bit 
following this instruction. 
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IF THEN 
Kaeekkkakk 
« JFTR *« 
kKKKKKK & 
Syntax? IFTK <Code Address> 
Fermats 
KKKRKKAEKRNEKEKEEMEKEK 
* 1001 * * 
Kaen KREKKKKEKEK KEKE KK 
OP-Code x 
bg 
xxx Type» Segment» Displacement 
Function: 
ae An operand is taken from the EVALUATICN STACK. The 
rightmost bit of the value of the cperanc is 
examined. 
1 = True 
C = False 
be. If true then» 
le A CALL instruction is executed usirg the code 
address given in the instruction. 
2. The return code address that is pushed intc the 
PROGRAM POINTER STACK points to the bit following 
this instructicn. 
ce. If false then> 
1. This instruction is terminateo aro the next 


instruction 


in Line is executea. 
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MARK STACK 


Syntax: MKS 


Formats 


KEKKk&KKKKK & 


* 1011 11 * 


KRaKKKKEK KKK 


CP-Code 


Function: 


Refer to CONTROL STACK mechanism 
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Keak RKEK 


* MKS * 


kKaknRERKK 


The CONTRCL STACK is updated ty the following algorithr: 


CS-NSPCCSP)2Z=CURRENT.~NSP? 
CSe-EXITEDeLLOCSP)S=CURRENT.LLS 
CSeENTEREDLLOICSP)2=Cz 


CS-VSPCCSP)S=CURRENT.VSPs 


CSP2=CSP + Ls 
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MARK STACK ANC UPDATE 


Syntax: MKUL <Lexic Level > 


Format: 


REKKEKKKKEAKEKEKKKKKKKKKKEKEK 


* L111 O01 1111 * * 
KERR KEKEKKEEAEKAKEKEKKKKEKK EK 
OP-Cade ot 


*« 
keke & Ditss LL 
Lexic Level being entered. 


' Functions: 

Refer to CONTROL STACK mechanism 

The CONTROL STACK and ODISPLAY are updatec by 

algcrithm: 
CSP.NSPCCSP)ISHCURRENTWNSP 
CSe-EXITED-LLCCSP 2 =CURREAT.LL>? 
CSe-ENTERED»LLCCSP)S=CURREAT.LL 2=LLs 
CS.VSPCCSP)S=CURRENT.VSP3 
CSPs=CSPels 


DISPLAYCCURRENT.LL) 2S =CURRENT NSP? 


PeSe 


the 


B18@00/61700 SEL SmLANGUAGE 
#2201 2389 


KKKKARKEK 


* MKU ® 


kkeakkkt 


following 
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RETURN FORMAL CHECK 


kKEKAKKERK 
x KTNC « 


KKEEAKKRAKK 
Syntax: RTNC <# of Levels><Type Field><Length Field> 
Formats 


EAHA KEKKEKEKEKKKEKEKEEEKKEKEKEKKRKEKEEKRAKKEAKRKEKRHKAKEKEK 


* 1111 11 1101 O01 « * a * 
REKEK KKK KEKE KKK KEKKKEAKEEKEEKKKRKEAKEAKAEKREKREAKEE 
OP-Code * * * 

* * x 
* * wake Length Field (6 or 17 
* * bits). Present only if 
* * Length varyira bit is 
* * is net set. 
«x * 
* x 
* zax Type (8 tits) 
« 
* 
xxx Number of tevels 


Function: 


Refer to Controt Stack Mechanisna 


ae Type Field 
Bits: 0O - Not used 
1 - Not used 
2 —~- Not used 


3 = Not used 
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De 


4-5 0c BIT 
O01 FIXED 
1C CHARACTER 
11 VARYING 
6 ~ Always 0 
7 - 1 if tength is varying 
DISPLAY and COATRKOL STACK are updatec using the 
following algorithms 
CURRENT.NSPS=CSLNSPCTCSP2=CSPS=CSF-1)> 
CURRENT~VSP*S=CSe-VSPC(CSP)» 
DO SEARCH FOREVER; 
IF CS-EXITED.LLCTCSP)=C THEN 
UNDO SEARCHs, 
IF CURRENT-LL=CS.-ENTEREOLLITCSP2=TCSP-1) 


THEN 


DISPLAYCCURRENT.LLIZSHACS~NSPCTCSP); 
UNDO SEARCH> 
END; 
END SEARCHs 
CURRENT.LL*=CS.EXTTEOC-LLCCSP)?» 


The value to be returned is an operand cn the tcp of 
the EVALUATION STACK. 


The type and Length of the data must match the type 
and length specified in the instruction urless_ the 
type or length is varying. 
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e. If the operand on the EVALUATICN STACK is not 


self-relative, the cata to be returned is mceved te 
the top of the VALLE STACKse ieee changed tc a vatue 
from an address. 


An UNDO is performed on the PROGRAM PCINTER STACK, 
using the number of Levels given in the instruction. 


BURROUGHS CORPORATION 
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RETURN 


Syntax: 


Format: 


PeSe £2201 2389 


kk&kkk KKK 


* RTRN * 


AKKRARKKRKEK 


RTRN <# cf Levels> 


RAKRMKEKKKKKEKKKKEKEKKEKEK 


* 1111 61 C1lci * * 


KREKKKAKKEKKKEKEKKEKKKKKE 


OP-Ccde 


Function: 


kkk 


4 Bit field that specifies 
the number of fLevels 


Refer to Control Stack Mechanism 


ae RIRN performs no check on the type and tlergth fields 
cf the value returned and its the return that is 
rormally emitted by the compiler. RINC cces perform 
checking and is available as a conpiler opticne. 

be. The value to be returned is an operand cn the tcp of 
the EVALUATION STACK. 

ce If ‘(tthe name value bit is off and the descriptcr is 
non-selfrrelatives then an error conditicn cccurs. 

Ge DISPLAY and CONTRGL STACK are updatec by the 


following alsorithmr 
CURRENT.NSPS=CS.NSPCTCSP2S=CSP2=CSPH1 De 


CURRENT .VSP2=CSeVSPCCSP)3 
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DO SEARCH FOREVER; 
IF CS-EXITED.LLOTCSP)=0 THEN 
UNDO SEARCHS 
IF CURRENT.~LL=CS.ENTERED «-LLOTCSP2=TCSP-1) 
THEN 
COs 
DISPLAYCCURRENT.LLISECSALNSPCTCSP D> 
UNDO SEARCHs 
END; 
END SEARCH, 


CURRENT«LL2=CS~EXI TED -LLCOCSP ), 


e. If the operand on the EVALUATICN STACK is not 
self-relatives the cata tc be returned is moved to 
the top of the VALLE STACK» i-e- changec to a vatue 
from an address. ; 


f. An UNDO is performed on the PROGRAM PCINTER STACK»e 
using the number of Levels given in the instructicn. 


BURROUGHS CORPORATION 
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UNDO 


Syntax: UNCO <# of Levels> 


Format: 


REKKKKKKEKEKEKKEK 


* 1000 * * 


Kea KKKEKKKEEKEK 


OP-Ccde & 


x 
kext & Bits to 


of levels to undo (0-15) 


Function: 
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kKkeek&neakt 


-*® UNCC *« 


KKaERKKKK 


destanate number 


ae The PROGRAM POINTER STACK is cut back by the number 
of levels specified in the instruction. 

be The next entry in the PRCGRAM PCINIER STACK is then 
used as the pointer to the next instructicn. This 
entry is then alse cut back from the PRCCKAM PCINTER 


STACK. 


BURROUGHS CCRPORATION 
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UNDO CONDITIONAL 


kRkKKKKK&KK 


* UACTC « 


kkk KRKKKS 


Syntax: UNCC <# of Levels> 


Formats 


KRRKEKKKEKKKEKKKKEKEKEKKEKSE 


* 1111 O01 CCil * * 
KERAEKEKEKKKERKRKEKEAKEKEKEKEEKEKK 
OP-Code * 


* 
kxe 4 Bits» specifies number of 
jevels to undo (07-15) 


Function: 


ae An operand is taken from the top of the EVALUATION 
STACK. 


be. The rightmost bit of the operand is interrogated 


1 


it 


TRUE 


0 FALSE 


it 


ce kKhen true an UNDO operator is performed for the 
number of levels indicated. 


ds» khen false the instruction is terminated and the rext 
ineline instruction is executed. 
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EXIT» ENABLE INTERRUPTS 


KKAEARAKE 


« XTEI « 


eakkkkkkn 


Syntax: xXTEI <UNDO or EXIT bit><# of Levels to exit> 


Fermat: 


KKK EKKKEKKKKEAKRKKKKKKKKEKKEK 


* 1111 11 0110 «* * * 
KEKE EKEK KEKE KE KKK KE KEKE KEKE 
OP-Ccde & * 
* * 
* xx*e & Bits» specifies number of 
* of tevels to exit 
* 
*& é 
zkex 1 Bit» variant to specify tf UNCC cr EXIT 
Q => UNDO 
1 => EXIT 


Function: 


The execution cf XTEI is identical to that cf EXIT» 
except that interrupts will be enabled before the 
cperator terminates. 


NOTE: For MCP use only. 
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SEARCK & SCAN OPERATORS 


NAME 


REDUCE 


SEAFCt SCL STACKS 
SEARCH LINKED LIST 
SEARCR SERIAL LIST 
SORT SEARCH 

THREAD VECTOR 
INITIALIZE VECTOR 
' SORT STEP OOKN 
SORT SWAP 

SORT UNSLOCK 


CELIMITED TOKEN 


NEXT TOKEN 


DEBLANK 
CHARACTER FILL 
TRANSLATE 


FINC CUPLICATE CHARACTERS 


MNEMCNIC 


ahem nae e = 


RDUC 


SSD 


UBLK 


DTKN 


NTKN 


DBLK 


CHFL 
XLAT 


FOUP 


COMPANY CCAFIDENTIAL 


Pe. 


CP CCDE 


1111 11 1001 


1111 11 


1111 01 


1111 11 


1111 
1111 
1111 
L111 
1414 
1111 


11iii 


1111 


1111 


1111 
1111 


1111 


11 


11 


| 


1 | 


11 


1i 


11 


Li 


11 


ij 
11 


11 


1110 
10190 
1000 
1011 
1011 
1011 
1011 
1011 
1011 


1001 


1001 


1001 


1001 
1110 


1001 


Se 


161 


001 


Big0O/E17CO SOL SmLANCUAGE 
R2201 2389 


ARGUMENTS 


VARIANTS» TYPE= 
LL-OC 


COMPARE TYPE 


COMPARE TYPE 


TYPE-LL~OC>» 
DELi» CEL2 


TYPE*LL-OC> 
SEPARATOR» V 


TYPE*LL-OC 


BURROUGHS CORPORATION 
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CHARACTER FILL 


CHFL 


Syntax: 


Format: 


KKKEKKKEKKKAKKEKEKKKEKKEEK 


* 21111 11 1001 100 * 


EKKEKKEKK KE KK KKKEKKEKEK 


OP-Code 


Functions 


COMPANY CONFIDENTIAL 
BL18090/B1700 SDL S-LANGUAGE 
PoS. #2201 2389 


Kketzkaekktk 


« CFL * 


kKKEKEKKREKSE 


ae Two operands are taken from the EVALUATICN STACK. 

Db. The top operand is the source» ard must be eight bits 
in length. 

ce The second operand is the cestination. 

de The source descriptor may be self-relative or 
ron~self-relative. 

@. The eight bits the source field. is moved 
left-justified into the destinaticn field», 


repeatedly» until the destination fielc is fitlec. 


Jv 244 
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 FINC CUPLICATE CHARACTERS 


kak hk kkk 


* FCUP « 


KRKKKKKKK 


Syntax: FDOUP <Data Address><Data Address> 
Formats 


KEKE EKEKREKKKKKEKKEKEKKKKKKE KEKE KEKEREAKE 
* 1111 21 2001 Q11 * LiL»CN «© LLOCN « 
KEKEAKKKKAKREERKEKEKKKKKEKEKEKEKEKKKEREKEEK 
OP-Cccde * * 
* *& 
kkek&kaikake 
* 
* 
* ‘ 
Variable size depending 
on type field. 


Function: 


ae The text to be scanned is initially described by the 
first data address. 


be The second data sderess cescribes the roneduplicate 
text. 
Ce The text will be scanned until three cr more 


duplicate chéracters ére founc. 


dw Lpon return the text descriptor is scdified tec 
describe the remaining text. 


e.- The non-duplicate text descriptor is modified to 
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gs 


descride the non-duolicated text that was scanned. 


The number cf duplicate characters will tbe left as a 
24 bit item on the top of the EVALUATICN STACK. 


“The duplicated character wilt be Left as the second 


item on the EVALUATION STACK ana witt be of type 
CHARACTERs Length 1.. 


37117 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B1@00/61700 SCL S"LANCUAGE 
SANTA BARBARA PLANT | PeSe #2201 2389 


DELIMITED TOKEN 


kKkekk&kkikkt 


« DITKA * 


kaekkkekkek 


Syntax? OITKN <Data Address><Delimiters> 


Format: 


RAEAKAKEKRE KEE KEKKEKEKEKKEKKERKKKKKREKEKEL 


* Lili 11 1061 OC1 * LL-ON * * 


REREKKKH EEK KKK KEKE KEKAKEKEKAEKEKKEE 


~OP-Code * * 


x 
cae 16 Bits specifies celimiters 


* 
* 
* (2 characters) 
x 
* 
x 


**« Variable size depending on 
type tits in this fielc. 


Function: 


ae The descriptor tocated ty data address is used to 
access the first scurce character. . 


b. The address of the first character is token-start. 


ce Characters ar? compared sequentially to each cf the 
eight bit delimiters until a match is fourc. 


de. Current address will point to the cheracter which 
matches one of the delimiters. 


en. A descriptor is left on top of the EVALUATION STACK 
that is: . 


BURROUGHS CORPORATION COMPANY CCNFIDEATIAL 
COMPUTER SYSTEMS GROUP Bl8OO/E1700 STL S“LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


f. 


1. Non=selfrrelative. 
2- The address is the address of token-start. 
3e The lenath is ecual te the current adcress minus 


token-start. 


The address field of the NAME STACK descrirtcr for 
first character is set to the current aoccress-. 
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DEBLANK 


kKkeEKKkKa&KK 


* DBLK * 


kkeetkakaeke 


Syntax: OBLK <Data Address> 
Format: 


KEKE KKEKKEKEKKKKKAKAEKKEKKKKEKKKK 
* 1111 11 10Ci O1C * LLe-CN « 
KKEEKKKKAK KEK KKKKEKEKEKKEKKKKEK 
OP-Coce * 
& 
_*** Variatle size depending on 
type bits in this fielc. 


Function: 


Ge The descriptor loceted by <Cata Adcress> is usec to 
access the first source cheracter. 


be Characters are then passed serially until a non-blank 
character is found. 


Ceo The address of the first rnon-blark character found is 
put inte the address field of the descriptor 
described by <Data Address>. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


SANTA BARBARA PLANT 


INITIALIZE VECTOR 


Syntax: IVEC 


Formats 


RRKEKKKKEKKEKKE KKK KKKKEK 


* 1111 11 1011 CCC « 


KEKKKKKAKRKEKKEHAKKKKEKEK 


OP-Ccce 


COMPANY CONFIDENTIAL 
B1800/B81700 SCL S~LANGUAGE 
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KKRKAKKEK 


* IVEC * 


KKKKAKKKKEK 


. See SSO for keys table format. 


VECTOR TABL 


24 Bits 


E 


(24 Bits 24 8its 24 Bits 4 Bits 
RMR KK KKK EK KRK KKK HEE KK KEKE EK KBAKARKHEKKAKKRAREKAKAKREKEKKEKEKEKKEK EA KK ER 
*«  VECTCR VECTOR ® KEY * VECTCR * * 
* BASE LEVEL.1 * TABLE * LIMIT * FLAGS * 
* ADDRESS SIZE * ADDRESS * SIZE * * 


KKEEKKEKKEKEKKEAKKERKEEKEEKEKKEKKKEKEREKKKREKKKEKEKKEKEAKKEKEKEKEKKEAEERKEKKKEK 


SCRT VECTCR 


2 


10 


20 


KRHRKKKEKEK KEK AKA KEHKREKKKKRKE RK EKER KKKAKEKKEAKREKE 


* 
* 


* FLAGS 


x 


* 
* 
k 
* 


LINK 


x 
* 
* 
* 


VECTCR ELEVMENT.1 = *& 
RECORD * 
ADCRESS * 
VECTCR ELEMENT.n * 


KEKE KAE KEKE KEKE KEKKEKEKE KE KKERER KEK KEKAEAEKREKEKERK 


Functicns 


3-120 
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This operator is similar to Thread Vectcrs» with the 
exception that: 
1. The vector has never been initialized Chad a 
winner). , 
2@e The initial value of the bit displacement into 
the vector is zero (0). ; 
3. Each new value ‘is incremented by 64. (Vector 


element length * 2). 
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NEXT TOKEN 


kKaektkaekkek 


* NTKN * 


KRaRARKKKKK 


Syntax: NKIN <Data Address><Sepearator> 


Format: 


<Numeric-tcrAlpha Indicator> 


KRAEKAEKEKEKAKEEKEKEK KKK KKEKKKAKEKEKEEKRAKKEAAKRAKEEK 


* 1111 11 1001 000 * LL»ON *« * * 
KEKE KA KEKE KKEKEMEKEKKEKKK KK KK KRKREKRKAKKEARAK EE 
OP-Code * * * 

« * * 
* * akex j] Bit 
* * Numerice-tcwAlcha 
* * Indicatcr 
* * . : 
* «ae 8 Bits» specifies a 
* sepérator 
* - 
x*x*« Variable size ceperding cr 


Functicr: 


ae 


Ce 


type in this field 


The descriptor described by data address is usec to 
access the first source character. 


The address of the first character is tokern-start. 


If this character is a special character (less than 
"A™) then set the current address to token-start +8 
and go to (9g). 


If the numeric-to-alpha indicator is set (1)» then 
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Ge 


f.. 


he 


set stopper to “A™. 


If the numericmtovtalpha indicator is not set (0) and 
the first character is numeric then set stopper te 
"oO". Otherwise» set stopper to "A". 


Sequentially compare characters to stopper until one 
is found which is less than stopper and rot eaual to 
“separator”. The current address wilt pcint to this 
character. 


A descriptor is teft on top of the EVALUATICN STACK 
that is: 


le Noeneself-relative of type character. 
2e- The address is the address of token-start. 


3. The length is ecual to the current address minus 
token-start. 


The data address for first character ts set te the 
current address. 


It is assumed that @ special character such as “%" 
will follow the image to te scanned» in order that 
scanning will terminete. : 


BURROUGHS CCRPORATION COMPANY CONFIDENTIAL 


CCMPUTER SYSTEMS GROUP 


B1800/81700 SDL S“LANGUAGE 


SANTA BARBARA PLANT PeSe #2201 2389 


REDUCE 


Syntax: 


Format: 


kkkkezkaene 


« RCUC * 


kak kkak tk 


RDUC <Type><Result.flag><Object>({<Result>] 


REEKMEKE KEKE KKEEKKKEKEKEKAKRHAKKKKKEKEHKARKEEARAKRKAKAKEKEKKKALK 


* (111 11 10021 101 * * * * tL» GN * LL» ON * 


BRERA KKK KKK ERK ERE KKK KKK KE KE KRKKKHK KEKE KEHEKAKREKEEKEK 


OP-Code x ®t * 
* « * * bd 
* i x & xaex Data adcress 
* * * * (Presert if result 
t  * * & flag is cn) 
«x * * * 
* * * ae QOata acdress 
* * * 
* * xte 1 Bits» 1 implies result cresert 
& « 
* «xe 1 Bite 0 => left-to-right scan 
* 1 => right-to-left scan 
«x 
kxx 2 Bits» 00 Unused 
O1 => NEG 
10 => ECL 
1i => IN 


Functicn: 


The character string located by the cbject data 
address is scanned in the direction indicated for a 
character which satisfies a prescribed conciticn. 


le If the type is ECL» an operard is taken from the 
EVALUATION STACK which must be 8 bits in Length. 
The condition is satisifed cy a character «hich 
is the same as this operand. 
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Ze 


2. If the type is NEQ»e an operand is taken as in the 
EQL case» but the condition is satisfied by a 
character which is different from the operanc. 


3. If the type is IN» the operard on the EVALUATION 
STACK must be of Length 256 bits. <A character 
satisfies the ccndition if» when usec as an irdex 
into the operanc bit stringer it selects a bit 
which is one 


Note: If the operand does not meet the Lenath 
requirements» an errcr will be generated. 


The scan terminates when either a character is fcund 
Satisfying the corditions or the ebject strirg is 
exhausted. At terminations a one~bit result is Left 
on the EVALUATION STACK» 2€1)02 af ne satisfying 
character was found or a e(1)13 If the character was 
found. In additiors the cescriptor of cbject (Canc 
that of result» if present) is upcatec: 


1.2 If the directicn is left-to-right: 


A* = A ++ xX 
re) oO 

Ce ee Ne * 
re) 0 

A * = A 

r 6) 

tL * = xX 

r 


If the direction was right-to-left: 


> 
ea 
" 
> 
+ 
=< 
Ps 
[ae 


ad 
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Lt= L- (x ¢ €) 
rt oO 
wheres 


A is the originat address of object 
A * is the new address of object 

L is the original length of object 
L * is the new Length of object 

A * is the new address of result 

L * is the new length of result 


x is the difference tetween the address cf the 
cheracter satisfying the coenciticn and the 
original address of object. 


Note: Lengths here are céelculated in bits even 
though they ére character strings. The 
type field of the result cescripteor will 
always be set to nonsselfrrelative 
CHARACTER. 
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SEARCK LINKED LIST 


kKakKaAaKS 


* SLL * 


Kkkk kkk 


Syntax: SLL<Compare Type> 


' Format: 


KRHA KKEREKEKAKKKEKAKEKKEKKK 


* Zilli O1 1010 * * 
KARAM KEK KEKE KEEEK 
CP-Code * 


* 
* 


kx«ez 3 Bits» specifies compare type 


The compare type specifies the desired relaticn. It is enccaed as 
follons: 


- Greater than 

- Less than 

= Not equal to 

Equal to : 
- Greater than or ecual to 

~ Less than or equal to 


One wh 
i 


Function: 


ae Four descriptors are exnectec to be cn the top cf the 
EVALUATION STACK. These descriptors represent the 
following items: 
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Descriptor Meaning 
First(top) Link Locatior. 
Secord Compare Varieble 
Third Compare Fielc Locaticn 
Fourth Structure Address 


le. Link Location is a template which cescribes the 
field in the structure which coantains the base 
relative address of the next structure tec be 
examined. 


2e Compare Variable determines the value to be 
compared to the structure. Its tlength must be 
less than or equél to 24. 


2. Compare Field Lecation is a template whose lergth 
field is the Length of the field to which ccropare 
variable 3s te .be ccmpared and whose accress 
field is the offsat Cin the structure) of the 
field to o8 ccmeared against. The length must be 
less than or equal to 24. 


4e Structure Address is the base relative address cf 
the first structure to be examineo. 


The linked List is seerched until either the 
comparison succeeds or the end of the list is fceound. 
The last element of the List must have a link field 


with binary 1's (%.e. @QFFFFFF2 if the tink field is 
2&4 bits wide). . 


If the search succeeds» then the tase relative 
address cf the current structure is left on the 
EVALUATICN STACK as & 24 titcvatue. 
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de If the search faits» then OFFFFFF2 is the value teft 
cn the EVALUATION STACK. 


NOTE: This operator will not terminate if it is unable 
to make a successful comparison and cannot fino the end 
of the List (a Link fielc of all 1's). 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


COMPANY CCNFICEATIAL 
Bi800/E1700 SOL SLANCGUAGE 


SANTA BARBARA PLANT PeSe #2201 2389 
SORT SEARCH 
KKaAaKKEKKE 
* SSCH * 
kakake«ek 
Syntax: SSCH 
Format: 
KEKAKKAAKAKaKEKKK KA KEE 
* L111 11 1011 1¢60 « 
RKEKKKKEKKEKEEKKKKKEKEKK 
OP=-Code 
See SSO fer keys table format. 
Functicn: 
ae This operator expects two items to be on the 
EVALUATION STACK. 
1. The top item is the buffer timit address. ; 
2s The second item is the address of the search 
control table. 
SEARCH CONTROL TABLE 
Bits 24 24 24 24 24 
HK MRK RIKI KK MK KEK KH MK REAR KEK KARE KER REKRKKEKMEREEKEEAKKKKKKK 
* CONTROL * KEY * CURRENT * SCAN * RECORC Sd 
* RECORD « TASLE * RECORD & & * SIZE * 
* ADDRESS * ADDRESS * INDEX * CCMPARE »* * 
* * t & TYPE *& * 


RKEKKKEAKEKKKKEKEKAKAKEKEKHEKKAKRKEKEEKKEKEEEKEKEKEKEKKKKKEKKKAKKEKEK 


bs SSCH compares eac 


h record in a buffer with a ccnrtrol 
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record on a specified key. 


ce The record may te ccmparec from the top cf the buffer 
down cr from the bottom of the buffer up. 


de The compare can te fer 


le LSS Cless than) 
2e LEQ Cless than or equal to) 
3. GEQ (greater than or equal to) 


32 When arecord is found that satisfies the comparison 
a one (1) is returned. Otherwise a zero is returned. 


BURROUGHS CORPORATION 
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SORT STEP DOCWN 


Syntax: $SD 
Formats: 


KREKEKKEREKEKHAKEKKKEKEK 


* 1111 11 1011 O10 « 


KRAEKRKEKKKEKEKKKEKKEKEKKEEKKE 


COMPAKY CCAFICEATIAL 
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Rk KKKKK 
* SSC * 
kk keke 


20 Bits 


OP-Cods 
KEYS TABLE 
4 Bits 12 Bits 
aR EK IKKE RE ERK K EK ERK KK KKK ARKERKKKKEK REA HARARE 
* ! * { & 
* | 
te =f- = «ee 2 = es ef He ee wk ew ee 
f | 
te ef — ze ew em em ww ew ee eke ee 
& y * y * 
* & & 
RRR EEE KEK KEKE KEKE KKK EERE KEKE KEKEKAEKEKHEKKKEKK KKK EK KEK 
FLAGS LENGTH OTS 


Functicn: 


ae This operator expects 
EVALUATICN STACK. 


PLACEMENT 


three items to ce or the 


value of the top item is the key table 


1. The 
address. 
26 The second and third 


items are the teft and right 


record addresses respectively. 
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be The left and right records are ccmpared accecrdirg to 


the keys and return a vaiue of one (1) when the right 
record is greaters éeccorcing to the keys» thar the 
left record. 
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SEARCH SERIAL LIST 


kKk&KakAKE 


* SSL * 


RAKkKEKK 
Syntax: SSL <Compare Type> 
Format: 


KREKEAEKKKKKEKKAKEKEAKKKKEKEEKEKE 


* 1111 11 1¢CC Cac « * 
ReKK KKK KAR EKA ARK KKK KK 
OP-Coce * 


x 
exe 3 Bits» specifies ccmpare tyre 


The compare type specifies the desired relaticn. [t is encocea as 
follows: 

1 = Greater than 

2 = Less than 

3 = Not equal to 

4 = Equal 

5S = Greater than or equal to 


6 = Less than or equal tc 
Function: 


@e Four descriptors ere expected to be on the tcp cf the 
EVALUATICN STACK. These descriptors represent the 
follcwing items. 
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Descriptor Meaning 
First(top) Table Length 
Secord Compare Value 
Third First Item 
Fourth . Compare Field 


1. Table Length is the Length» in bits» of the table 
to be searched. 


2e Compare Value determires the value tc be ccrpared 
to the structure. Its length can be greater than 
Che 


3. First Item sgives the length and adcress of the 
first item in a serial list of items that are of 
identical structure. 


4. Compare Field gives the length and the cffset 
within the structure of the field to which 
Compare Value is to be compared. Unlike StL» the 
length may be greater than 24 bits. 


The serial list of items is searchec begirring with 
first item until Compare Value satisfies Ccmpare Type 
with Compare Field» or untit the end of the list is 
reached. 
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Ce If the search succeeds» then the base retative 
address of the item containing the “successful” 


compare field is left on the top of the EVALUATION 
STACK anda 1i=bit value of 1 Cone) is ieft as the 
second item on the EVALUATION STACK. 


If the search fails» then the end address of the 
table + 1 is left on the top of the EVALUATION STACKs 
and a imbit value cf 0 (zero) is Left as the second 
item on the EVALUATICN STACK. 
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SEARCH SOL STACKS 


Syntax: 


Formats: 


$$$ 


Ee¥KkKKKE 


* SSS * 


kKkkakkkk 


RAEKKKKKEKEEKEKKK KKK 


* L1Ill it i110 001 * 


RAKRKKKEKAKEKEK KEE KEKE K 


OP-Ccde 


Function: 


Ce 


Four operands are removed from the EVALUATION STACK. 


First (top) Stack Bese 


Second - Stack Tep 

Third - Compare Base 

Fourth - Compare Top 

The Stack to be searched witt consist cf SOL 


descriptors and will be searched from base to tcp Cor 
vice versa) for a simple descriptor whose acdress 
lies between compare tase and compare top. 


Array descriptors and selfetrelative descrictors may 
be ignored. 


If the search 15 successful ther a one bit vatue of 
(1) is Left on the top of the EVALUATICN STACK. 


If the search is rot successful then a one bit value 
cf €0) is left on the top of the EVALUATICA STACK. 
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SORT SWAP 


Syntax: 


Formats 


SS WP 


kKenka ake 


* SSwWP * 


wkhkakkaeank 


REKKKKEAEKKEKKKEKEKEKEK 


* 1111 221 1011 101 * 


RKKEKKKEKKKKAKKKKKKKKKEK 


Op-Code 


Function: 


This operator pops two operands off the EVALUATION 
STACK. 


The values of the two operands are interchanged 
without regard to type. 


kKhen the two fields are cf unecual lengths the swap 
is limited to the length cof the shorter field. The 
longer field is filled from the lefts lcw erder bits 
are undisturbed. 


BURFGUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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THREAD VECTOR 


Syntax: TVEC 
Formats 


KKK KEEN KKKEKEKKKE KEE 


* 1111 11 1011 001 * 


REKKEKEKKEKEKAKKEKKEKKKK 


oOP-Ccde 


See SSD fcr keys table format. 
See IVEC for vector table format. 


.Functicn: 


ae This operator expects 


EVALUATION STACK. 


1- The top item is a bit displacement intc the 
vector» where the two vector elements tec 


reside. 


Ze The second item 


vector table. 


COMPANY CCAFIDEATIAL 
B1800/8170C SDL S-“LANGUAGE 
P.S. #2201 2389 


aeakanuakan 


* TVEC * 


RARaEKRKKEK 


two items to be on the 


is the address of the 100 bit 


be. The operator then ccmpares the two vector elements 
Caccording to the sort keys) and stores a winner. 


Ce When the store address is equal to the vector 
the EVALUATION STACK 


pointer advanced. 


cut back and the 


Limit 
instruction 


sort 
ccncare 
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de When the store address is not ecual te the vector 
limit the bit displacement is updated and the 
EVALUATION STACK and program pointer remain 
unchanged. 
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SORT UNBLOCK 


kek Ka eK 


* UYUPLK « 


xkaknreakk 
Syntax: UBLK 
Format: 


RKKEKRKKAKEKEEKRKKKKRKEK 


* 2111 11 1011 011 * 


RKEKEKEKEKKKKKKEKKAKEAKE 


OP~Code 
ae This operator hanctes blocking for the sort 
operators. It moves data from a source field to a 
destination field and updates the blecking 


characteristics. 


be Four items are expected on the EVALUATION STACK. 
1. The first item is the destination address. ° 
2e The second item is the source address. 


3- The third item is the tength cf the data 
transfer. . 


he The fourth item is the address of the 
“Pseudo~Sort*F io". , 


ce When the bleck count goes to zero (0) a value of one 
€1) is returned. 


de When the bleck count is other than zero a vatue of 
' zero €0) is returned. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
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TRANSLATE 
Syntax: XLAT 
Format: 


RKEKKEKKKEKKKKKKAKKKKEKEKK 


* Vill 11 1110 101 * 


KHKKEKKEEKEAKA KK KK KKEKEKEK 


OP-Code 


Function: 


COMPANY CCNFICEATIAL 
B1e0O0/E817CO0 SCL S“LANCUAGE 
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AkREKKAKEK 


* XLAT « 


KKEKKKKE 


@e Five operands are taken from the EVALUATICN STACK. 


1e- Oescripter for the result field. CAr accress 
operand). 

2-e A self-relative descriptcr whose value is the 
size of the items in the result fielc and ir the 


translate table. 


3. The translate table. (May be a value cr an 
address operand). 

&e. A self-relative descriptor xwhose value is the 
size cf the items in the source field. 

5. A descriptor for the source field. (An address 
operand). 

be Each of the items in the source fielc is usec te 

subscript into the table to obtain an item which is 

then placed into the resuitt field in the position 

that corresponds to the position of the original item 


obtained from the sourcee 
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Ce This process continues until 
1. The source field is exhausted. 
2e- The result field is full. 


36 An error occurs (e.g- translate error). 


d.- If either the source or the result is net a multiple 
cf its respective item size then the last item 
translated or the last translatec valte witl be 
truncated as requirec. 


ee Both source and table item sizes must be equal tc or 
Less than 24 bits in lengths» otherwise a rurc-time 
errcr occurs. 


f. The table need only te tLarge enough to acccmrcdate 
those items which will actually appear in the scurce. 
That is» the upper end of the table need not 0be 
present if it will never be accessec.e. Howneveres 
attempting to access a table item which is beycrd the 
actual size of the table wili cause a rur"time error. 


BURFOUGHS CCRPORATION 
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TRANSFER MESSAGE 


HASH COCE 

SWAP 

FETCH 

FETCH AND SAVE 
CISPATCH 

HALT 

READ CASSETTE 
LENGTH 

LOAD SPECIAL 
CLEAR ARRAY 
COMMUNICATE 
REINSTATE 
FETCH CMP 

DATA ADDRESS 
SAVE STATE 
HARDWARE MONITOR 
CVERLAY 


PROFILE 


MNEMONIC 


XF RM 


HASH 
SHAP 
FECH 
FECS 
DISP 
HALT 
RDCS 
LENG 
LSP 

CLR 

COMM 
REIN 
FCKP 
ADDR 
SVST 
HMON 
OVLY 


PRFL 


COMPANY CCNFICENTIAL 


PeS. 


CP CCOE 


1111 11 1010 €10 


1111 11 1000 CCl 
1111 01 0110 
1111 00 1100 
1111 11 2110 O11 
1111 01 1011 


1111 11 0019 


1111 01 0010 


1111 1C€ 9000 
1111 01 1110 
1111 1C O111 
1111 1¢€ 0110 
1111 1¢€ 0001 
1111 1¢€ 0010 


1111 01 1001 


‘1111 11 #0001 


1111 11 0011 
1111 11 0000 


11121 10 1111 


B1800/B81700 SOL S=LANGUAGE 
#2201 2389 


ARGUMENTS 


CEST.-VARIABLES 
SCURCE VARIASLE 


VARIANT 


ENTRY NUMBER 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 
PARITY ADDRESS 
‘EXECUTE 

COMMUNICATE KITH GISMO 
ACO TIMER 


SUBTRACT TIMER 


PADR 
EXEC 
CwG 

ADOT 


SUBT 


L111 
1111 
Lili 
1111 


1111 


COMPANY CCNFIDEATIAL 
B1i8Q00/EB1700 SCL S“LANGUAGE 
PeSe #2201 23869 


11 


11 


11 


11 


11 


0111 
1110 
1110 
1100 


1100 


BURROUGHS CORPORATION 
CCMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


ACORESS 


Syntax: ADDR 
Format: 


KAKEKKKKKKKKKKEKKEK 


* 11211 G1 1C0C1 * 


KREKKAKKKKKEAKEKKEK: 


OP-Code 


Function: 


ae A descriotor 


COMPANY CCNFICENTIAL 
Bi800/E1700 SEL SmLANGUAGE 
PeSe #2201 2389 


kkk hk hk 
* ACDR * 


RKEKAKRAK EK 


is expected to be cn the top of the 


EVALUATION STACK. This descriptor must be 


1. Non-array 


2e Nonwselfrrelative 


36 The names~value Cit must te off. 


be. The type 
self-relatives BIT. 


descrictor 1s set to 


ce The length field of the descriptor is set to 24. 


BURROUGHS CORPORATION COMPANY CCNFICERTIAL 
COMPUTER SYSTEMS GROUP . B1800/21700 SCL S~LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


ADD TIMER» SUBTRACT TIMER 


RKEAKAKKARKEKKAKKE 


* ACOT * SUBT * 


KEKKKKKKKKEKAKRKK KH 


Syntax: ADOT <cetltl number> 


SUBT <cell number> 


Formats: 
ADOT 
RAKE KAKEKEKEEEKAKKKK KK KKK KEKEEK ES 
* 1111 11 1100 000 *« * 
Kam aKKAEKEKEAEKAKKAKEKEEKK KK KE OK 
OP-Ccde & 
* * 
*xe LE Bits specifies cell rurber 
SUBT 
KAEKEKEKEKEKEKEKEKKEKEKKEKEKAKK KEKE K 
* 1111 11 2100 O01 « * 
KEKE AKKEKEKEKEKKEEKEEKKEKKEKEKAK KEKE KH 
OP~-Code od : 


*& 
zee 16 Bits specifies cell numrter 


Functtors: 


ae This operator assumes that DISPLAYC18) points tc cell 
zero of an array of 4&=bit cells. 


be The cell number is used to subscript into the array 
to locate the indicated cell. 


ce The highresoluticn timer is added (subtracted) from 
the indicated cell. 


BURROUGHS CORPORATION COMPANY CCNFIDEATIAL 


COMPUTER SYSTEMS GROUP B18@00/B81700 SOL S*LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 
de An adjustment will te made to the timer te exclude 


Ce 


the time required by the operator from being included 
in the cell time. 


If no highrresoluticn timer is present cr the system» 
then this operator will not change the tiring cell. 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


CLEAR ARRAY 


Syntax: CLR 


Format: 


KEKKEKKKKKKKKKKKK 


* 1111 10 O111 * 


REKKKEKKKAKAKEREK 


CP-Ccde 


Functicn: 


COMPAKY CCNFIDENTIAL 
B1800/81700 SCL S-LANGUAGE 
PeSe #2201 2389 


wKakKK KKK 


* CLR * 


akeakKEKKEK 


ae The descriptor on tcp of the EVALUATION STACK must be 
a nonwpaged array descriptor. 


De When the 


elements are blank filled. 


array 


is 


of 


type CHARACTER» the array 


ce. For any other deta types the array elemerts will be 
zero filled. 


BURROUGHS CCRPORATION 
CCMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


COMMUNICATE 


Syntax: COMM 


Format: 


KRAEKEKKEKKEKKKKEKEAKEKEK 


* 1111 10 O11C * 


REEKKAKAEKKKKKKEE 


OP-Code 


Function: 


ae The descriptor on the top of the EVALUATICN STACK 


COMPANY CONFIDENTIAL 
B1e@00/81700 SOL S“LANGUAGE 
PeSs #2201 2309 


kkKaEaKKKKEK 


* CCMM «x 


KKKKKEKEK 


is 


moved to RS-COMMUNICATE.~MSG.PTR. 


be. khen the namervalue bit is ons it is turned off in 


the RS«COMMUNICATE.MSG.PTR. 


Co The descriptor 
and the VALUE STACK 


Ge The M-machine state 
parts of the RS.~NUCLEUS. 


is removed from the EVALUATION 
is cut backs if necessary. 


STACK 


stored in the apprepriate 


e. The procram whose RS»sNULCEUS address is given ir the 


RS-«COMMUNICATE.LR 


instatec.e 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


COMMUNICATE WITH GISMO 


_ 


Syntax: CwWG 


Formats 


RKEKEKAKKKKEKKEKEKKEKEEKSLK 


* 1111 11 1110 11C * 


KREKKEKKKREKKEKEKKKKKE 


OP~Cccoe 


Function: 


ae A 
EVALUATION STACK. 


COMPANY CONFIDENTIAL 
B1i800/81700 SDL S-LANGUAGE 
PeSe #2201 2389 


kKaKEKKK 


«* CWG *« 


KEAKKKS 


descriptor is expected to be on the top cf the 


is selferelative it is made 


be If the descriptcr 
nonssel ferrell ative copying its data tec the VALUE 
STACK. 

ce The address field of the descriptor is mace absclute 
and placed in the “T" register. 

de The Length field is placed in the “L" register. 

@e A swapper value cf 14 is placed in the “X" register 


and GISM0 is called. 


ff. The descriptor on 
removed. 


the EVALUATION STACK is not 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


DISPATCH 


Syntax: DISP 


Forsat: 


REKAKKKEAKEKKKEKAKKEK 


* 11112 O01 1011 * 


KREKRKKKEKRKEEKKEEKEK 


OP-Code 


Function: 


ae Two aperands are 


be The top operand 


COMPANY CCNFICENTIAL 
BLi8OG/E1700 STL S-LANGUAGE 
P.S. #2201 2389 


kKKKKRAEKKEK 


* GISP * 


kek ak&kkkk 


remcved from the EVALUATICN STACK. 


1s é@én address cperard cf the I/0 


descriptor to 5e dispatched. 


Ce» The low order 7 bits of the second cperanc shculd be 
enceded as fcllows: 


REKKKEKKKEKKEKEKEAKEK 


* 


* 


REKMKEKEKKEKEKKEKAKK 


* 


& 
& 
* 
& 


*KK 


* 
‘ 
axa & Bitser specifies Chanret 


3 Bits» specifies Port 


de These two operands ére passed as parameters to CISMO»s 
which then performs the I/C operatior. 


BURROUGHS CORPORATION | | COMPAKY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B1800/8@1700 SCL S=LANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 
Ge GISMQ returns a value which describes the resuits of 


the dispatch. A 24-bit self-relative descriptcr is 
left onthe EVALUATION STACK~»j The value has the 
follcning meaning. 


0 = Dispatch register lockcut bit set 
1 = Successful dispatch 
2 = Successful dispatcher but missing device 


BURROUGHS CORPORATION . COMPANY CCNFIOENTIAL 


COMPUTER SYSTEMS GROUP B1800/E1700 SCL S=LANGUAGE 
SANTA BARBARA PLANT | PeSe #2201 2389 
EXECUTE 


RKKKKEREKEK 


* EXEC * 


RKKKKAKEK 


Syntax: EXEC 


Format: 


KRKEKKKKKKKKEKEKKEKKKKEEK 


* 11211 11 #1110 O10 * 


REKKKKKK KK KK KEK KK KEKEAK 


OP~-Code 
Function: 


The value.-of the top operand on the EVALLATION STACK 
will be considered to te the next op-ccce te be 
executed. This is fer the testing of experimertal 
ecp~ccdes in tha interpreter. 


This operator is not in release irtergreters. 


BURROUGHS CORPORATION COMPANY CCAFIOENTIAL 
COMPUTER SYSTEMS GROUP 81600781700 SCL S“LANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


FETCH COMMUNICATE MESSAGE POINTER 


akkakaknk 


* FCMP «* 


kaeaekkzkkkn 


Syntax: FCMP 
Formats 


RKEKKKKKKKKKKKKEKEKEK 


* 1111 10 OC10 »* 


REKKEKKEKEKEKEKEKEKEK 


CP=Ccde 
Function: 


ae If the - RSMCP.SIT 1s set then the 
FSeCOMMUNICATE.MSGePTR is accessed. 


be If the RS~MCP.BIT is not set then the RSeREINSTATE. 
MSG.PTR is accessed. 


Ce The accessed field is assumec to be a descrigtor and 
is placed on the top of the EVALUATICN STACK. 


BURROUGHS CORPORATION | COMPARY CCNFICENTIAL 
CCMPUTER SYSTEMS GROUP B1800/81700 SDL S“LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 238&9 


FETCH» FETCH AND SAVE 


RaEAKAKKKAKKEKAEKK 


* FECH « FECS * 


KRERAEKKKKKEKEREEK 


Syntax: FECH 


FECS 
Format: 

FECH FECS 
KRKEAKKEKAKKAKKKKKEK REKEKEKEKEKEAKAKRKEAKAKEKK 
* 1111 00 1100 * * LIL1 11 1110 Gli * 
KKEAEKKKKKREKEKKKEKKEK KHEAKKKEKRKEEAEAAKEKKEEKE 

OP-Code OP-Code 


Function: 


ae An operand is taken from the EVALUATION STACK. Its 
value indicates which item is te be examined or the 
Interrupt Queue (Refer to the MCP manual). 


0 => Use the top item 

“1 => Use the top high priority interruct time. 
Otherwise the velue is the refererce 
address +24 of the result cdescrifrtecr 
desired. 


be Two descriptors are Left on the EVALUATICN STACK. 


le The top item is a Bit (24) selfe-relative cata 
item whose value is the address of the desired 
1/0 result descriptor. 


2e The second item is a Bit (10) selfr-relative data 
item whose value is the port and charrel of the 
1/0 operatione This has the following fcrmat: 


BURRGUGHS CCRPCRATION COMPANY CCNFIDENTIAL 
COMPUTER SYSTEMS GROUP — 81800781700 SCL S-LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 


TELE C CSE CEL SLL C SCS S CSCC SCC SSCS CSCS CC COCCLCCCCCACCCCCCC TC. TT! 
* 1 Bit * 1 Bit * 1 Bit * 3 Bits s 4 Bits * 


KKK KER EEE KREME EKK KEKE KRM KR EKRARAKREAAEARKEEKEKEKAAKKKK KEK AKEKE 


& * *« * * 

& * * x * 

* * x a *& 
High Pricrity Interrupt Unused Port Channel 


Interrupt 


ce When the operator is Fetches then the item is remcvec 
from the Interrupt Queue. 


de when the operator is Fetch and Save» ther the 
information is left in the Interrupt Queue. 


oa If the Interrupt Qu2ue was empty» ther both 
descriptors have a véelue of zero (0). 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


HALT 


Syntax: HALT 
Format: 


KREKKEKKEKEKEKEEKKEKEKEK 


* 1111 11 OC10 * 


REKKKKEKEKKKKKEE LK 


OP-Code 


Functions: 


ae The M=-machire state 
parts of the RS.~NUCLEUS. 


be The low-order 24 tits of the value of the operand 
the top of the EVALUATICN 
TImregister. 


COMPARY CCAFICERKTIAL 
BiL800/7B1700 SCL S“LANCGUAGE 
PeS- #2201 2389 


kkKKKKKKK 


* HALT * 


KKAKAKEKK 


stored in the aporocriate 
(Refer to the MCF manual). 


STACK » is meved te the 


Ce This operand 1s popped off the EVALUATICN STACK and 


the M-instruction 


is executed. 


on 


BURROUGHS CCRPORATION 
CCMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


HASH CODE 


Syntax: HASH 
Format: 


RAEKKKEAKEKEKEEKHEKEKEKEKEKEK 


* 2ili 11 1¢0CC CCl * 


KRKKKKEKKKKKEKKKKKKKK 


OP-Ccde 


Function: 


3°159 


COMPANY CONFIOENTIAL 
B1800/E1700 SCL S“LANGUAGE 
PeSe #2201 2389 


KaAE&KAKKKK 


* HASH * 


kRakEKKREKEKKK 


ae The alaorithm for cenerating the hash cece can best 
te descriced oy an SOL procedure. 


 PROCECURE HASH-CODECTOKEN) BIT €24)3 


FORMAL TCKEN CHARACTER VARYING; 


DECLARE 


(Le>T) 


C 


01 


BITCZ4)6 
CHARACTERC1) » 
HASH BITC27)> 


02 FILLER BITC3)» 


O02 TCTAL BITC24)> 


IF CHASHS=LeS=LENGTHCTCKEN)) > 15 THEN Li=15, 


T3=03 


f* C CESCRIBES THE CHARACTER PRECEDING TCKEN */ 


BURROUGHS CCRPORATION COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP BiBOO/E1700 SCL S“LANGUAGE 
SANTA BARBARA PLANT . . PeSe #2201 235869 


DESCRIPTOR(C)2=348C008a CAT 
DATA-ADDRESSCTOKEN) “83 
DO HASHeIT FOREVERS 


IF Ll <BUMP T THEN RETURN TOTAL; 


BUMP TOTAL €-€T MOD 4)7 BY NEXT~TTEM(C)>» 


END HASH.ITs 


END HASH.CODE;> 


be. Each cheracter of TCKEN is being right acjusted ir a 


fietd of zeros and added to TQATAL in cne of four 
positions. 
RRR K KKH KM KK KEK KKK EK KKK EK KKK KM KEKE MAKKEAKEKEKEKEKAEKKEAKEE 
* * * * & & t * KASH 
REKKKKE EEK KKK EK HEHE KEKE HK KEM KKRERKHREKEKKKEKKEEKAKKKEKEKKKEKEK 
t QS s9se— s= 4 see G.- £ x T Moa 4=0 
RUBE KKE KKK KKKEKEKKEKAKKRAKKKEKEEKKEKEKKEKKEKKKEKKKKKEK 
A Oe +SsS ssa eee a Ta Cc * T Med 4=1 
KKK KKKEEKEKEKKKKE KE KEK KK KHKRKAKREKEKEKKEKEKKEKEHRKEEKEKEKE 
t Qeacreseweneneoun() x C *« T Mod 4=2 
RAKE KKEKRAKEKEKKEKKKKEKKEKEKKAKARKEKEKAKKKEER 
&k et eese se swan wse O * c * T Mod 4=3 


KEK KKEMKKEKKEKKKKEKREKEKEEKEE KEKE KKEKEKEKEKSE 


BURROUGHS CCRPURATION 
COMPUTER SYSTENS GROUP 


COMPANY CCAFIDEATIAL 


B1800/E81700 SCL S-LANCUAGE 


SANTA BARBARA PLANT PeSe £2201 2389 
HARDWARE MONITOR 
KKEKKANKREARKK 
* HMCA * 
we&akaKKKKK 
Syntax: HMON 
Formats 
KEKE KKKEEKEKKEKKEKK 
* 1111 11 0011 * 
KAKA EKEKKKKEKKHKEKKK 
CP-Ccde 
Functicn? 
ae An operand is taken from the too of the EVALUATION 
STACK. 
be The low order eight tits of the operand*s value will 
besed as the operand of a reonitor 


micro~instruction. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


LENGTH 


Syntax: LENG 


Format: 


RKEKKEKKEEKKKEKKKKEK 


* 1111 10 Coco * 


RAKKKKEKEKEKAKERKEK 


OP-Code 


Function: 


COMPAKY CCNFIDEATIAL 
B1800/B1700 SCL S“LANGUAGE 
P.Se #2201 2389 


kkakk kink 


* LENG * 


kkk kk kkk 


ae An cperand is taken from the EVALUATICN STACK. 


be A selferelativer fixed result is returned te the top 
of the EVALUATION STACK? : 


1. When the operand was af type CHARACTER?» the value 
of the resuit is equa 
-operand’s descriptor civiced by eight. 


Ze When 


the operand was 


CHARACTER> the value 
in the operand's descriptor. 


L to the Length field in the 


of any type other than 
is equal to the Length fielta 


BURROUGHS CCRPORATION COMPANY CONFICENTIAL 
COMPUTER SYSTEMS GROUP B1800/61700 SCL S~LANCUAGE 
SANTA BARBARA PLANT PeSe #2201 2339 


LOAD SPECIAL 


karkkakek 


* LSP * 


ReaKK&K K 
Syntax: LSP Variant 


Fortrat: 


KEKE KEK KEKKEKKAKKKAK KEKE 


* LT1liiil C1 1110 »* * 
KEKKEKKKEKA KE KKEKKAKEEKK K 
OP-Ccde * 


* 
wee 5 Bit Variant indicating value te load 


Functicn: 


ae The variant fiela indicates a velue to be loaced te 
the top 23f the EVALLATICN STACK» usuatly as a 24 bites 
self-relative data iten. 


Variant Value 

Base register (absolute accress) 
Limit register (base relative) 
S“Memory size in bits 

M-Memery size in bits 

CONTRCL STACK top (Cbase relative) 
EVALUATION STACK tcp Cbase relative) 
CONTRCL STACK size in cvits 

NAME STACK top (base relative) 
DISPLAY BASE Chase relative) 
CONSOLE ShITCHES 
SPOsINPUT.PRESENT C1 bit) 
PROGRAM.SWITCHES (40 bits) 


~~ OO SNOHA VU EWA HO 


fa fe 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


OVERLAY 


Syntax: OGVLY 


Format: 


KEKRAEKKKKEKEAKKKKK 


* 1111 11 OCCO * 


RAKEAKRKERKKEKKEKKEKE 


OP-Code 


Function: 


_ COMPANY CONFIDENTIAL 
B1800/81700 SDL S*LANGUAGE 
PeSe #2201 2389 


KKKKKKKK 


* OVLY * 


kkk aRKKKK 


ae An operand is taken from the top of the EVALUATION 


STACK. 


be. The value of the operand will be used by GISMD as an 
index into the interpreter dictionary. 


ce The interoreter dictionary will specify the action to 


be taken. 


(Refer to the B1800/81700 MCF marual). 


BURROUGHS CCRPURATION 
CCMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


REAG CASSETTE 


Syntax: RDCS 
Format: 


KKEKKKKEKHKEKEKKKEK 


* 1111 01 OC1O * 


RKEKKEEKKEKKKEKEKE 


OP-Code 


Function: 


COMPANY CCANFICENTIAL 
B1800/81700 SOL S*LANGUAGE 
PoSe #2201 2389 


KkKKRKKKEK 


* RECS * 


KKEKKKKEK 


ae Three operands are expected to be on top of the 


EVALUATION STACK. 


be. Top item - address operand where a one cr zero 1s to 
be stored accordirg to whether a hash tectal reac from 


the tape is good or tad. 


Second item ~- a selfrrelative value of one if a hash 
total is to be read from the taper» else zercae 


Third item = an adcress cperand where cata from the 


tape is to be stored. 


ce The following conventions 


epply?> 


1. At least one record witl be read. 


2e A sufficient rnusrter of recorcs witl be read to 
fill the buffer requested (third operand). 


3. The cassette will not be stopped in the miccle of 


a record. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 


COMPANY COCNFICENTIAL 
~B1BO0O0/E1700 SEL SmLANCUAGE 


SANTA BARBARA PLANT | PeSe #2201 2389 
&. Cassette record tengths should be multiples of 16 
bits. 
Se. If the size of the buffer is not a multiple of lo 
and a HASH.TCTAL checking was reaquesteds then a 
badehash (0) indication will be returnea. 
.6.2 If NO*HASH.ZTCTAL checking was requested» then a 


good hash (1) will be returned. 


BURROUGHS CCRPORATION | COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP Bi800/B1700 SCL S“LANCUAGE 


SANTA BARSARA PLANT PeSe 


PARITY ADDRESS 


Syntax: PACR 
Format: 


KKH KEKEKAKE KEK KEK 


* 1111 211 C1liil * 


RaEKKKEKKEKKKAKE KEKE 


BP-Code 
Functions 


ae Starting at absolute address zero (0)» 
scanned until MAXS is reached. 


#2201 2389 


wKKKKKKKEK 


* PADR * 


KKARKKEKE 


S“Memory 15s 


be If aparity error is detected» the error is corrected 


and its location is placed on tcp of the 
STACK as a selfrretative 24 bit cata 


EVALUATION 
item. The 


address returned cotnts to the beginning cf the byte 
of S-memory in which the parity error cccurred. 


Cs If no error is detected» a value of 
elaced on the EVALLATION STACK. 


NOTEs For MCP use only. 


aFFFFFFQ 7s 


GURROUGKS CORPORATION 
COMPUTER SYSTEMS GROUP 


COMPAAY CCNFIDEATIAL 
B1800/61700 SDL S“LANCUAGE 


SANTA BARBARA PLANT Lot, PeSe #2201 2389 


PROFILE 


syntax: 


Format: 


keczakikkn 


* FPRFL « 


KkKEKKKKK 


PRFL <Profile Array Index> 


KKKKKEKKEAKRKAKKKKKKKREKKEK 


* L111 10 1111 * * 


CHEK EKAKEKKKEKKEEKEKKKKKEK 


CP-Ccae 


Function: 


* 
« 
*x*xe 12 Bits» specifies index 


DISPLAYC1E) contains the tase relative accress cf the 
rrofile array. This array is between the Limit of 
OISPLAY and the tase of the CCNTRCOL STACK. Each 
element of the array is 16 bits. 


The entry number given by <profitle array index>r is 
bumped by one. 


BURROUGHS CORPORATION COMPANY COCNFICENTIAL 


COMPUTER SYSTEMS GROUP BLi800/E1700 SEL S@=LANGLAGE 
SANTA BARBARA PLANT PeSe #2201 2389 
REINSTATE 


Syntax: 


Formats 


REIN 


kKaeaz&kktkket 


* REIN « 


RkKkKkKKKK 


KKKEKKKKEKEKKKEKKEKE 


* 1117 10 COC1 * 


RKAKKKKEAK KK KK EK EK 


aP- 


Function: 


Code 


de 


The descriptor on the top of the EVALUATICN STACK is 
assumed to describe the RSs«COMMUNICATE.MSG.PTIR or 
RSe-NUCLEUS of the program to be reirstatea. (Fefer to 
the MCP manual for 2 descrintion of a run structure. ) 


This descrirtor should have the néemervalue bit off. 


The reinstating pregram*s S-machine state is stcreg 
in the appropriate peéerts of its RS.NUCLEUS. 


The address of the reinstating program's RS.NUCLEUS 


is stored in the reinstatec program's 
RS~COMMUNICATE.LR. 


The address field of the descriptor on the EVALUATION 
STACK contains the address of the RS.NUCLEUS cf the 
progran that is instated when the descriptor is 
removed from the EVALUATION STACK. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


SAVE STATE 


Syntax: SVST 


Format: 


REKEKKKEKEKEKEKKEKKKEK 


* 1111 10 O0C1i * 


KRKKKKKKKKKKEKKKEK 


oP-Ccde 


Function: 


The current 
RSsMe~MACHINE CRefer to the BLE00/E1700G MCF manual). 


State 


of 


the 


COMPANY CCAFICENTIAL 
B1@00/61700 SOL SmLANGUAGE 


P.S- 


S-machine 


is 


2201 2389 


KKKKKKKEK 


* SVST * 


RaEKXKKRGaK 


Saved 


in 


BURROUGHS CCRPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARKSARA PLANT 


SWAP 
Syntax: SWAP 
Format: 


KRKKKKKKKKKKK KK KK 


* 1111 O01 0110 * 


KRKEKKKKKKKKKKKKKK 


OP-Code 


Function: 


3-171 


COMPANY CONFIDENTIAL 
B18O00/E1700 SCL S-LANCUAGE 
PeSe #2201 2389 


KAKKEKKK 


* SWAP * 


kerk axkkekark 


@e This operator takes two operands from the EVALUATION 

STACK. 

1. The top C€source) operand may be a value cr an 
address operand. 

Ze The second (destination) operand must te an 
address operand. 

a) The length cf the destination determines the 
width of the data “swappec"™. 
be Destination field: 

1. When the Length of the destinatior its greater 
than 24 bits» orly the rightmost 24 bits are 
isolated» otherwise the entire field is isclated. 

Ce Source field: 


1. A 
is isolated 


value equal 


in length to the destination field 


in the source field. 


BURROUGHS CCRPORATION 
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COMPANY CCAFIDENTIAL 
B1800/61700 SCL S-LANGUAGE 
P.S. #2201 2389 


2e The bits are taken from the right. 


a) then 
destinatior 
supplied. 


the source length is sherter thar the 
field» leading zeros are 


de The source field is moved to the cestiraticn field 
and the former value of the destination field -is 
returred as a result on the EVALUATICN STACK. 

ee The swap must te perfcermed such that no other 


processor» sharing the same memory can simultaneously 
swap out the same eres of memory. 


BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


TRANSFER MESSAGE 


COMPANY CCNFICENTIAL 
B1800/B1700 SCL S“LANGUAGE 
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Keke aka KKK 


* XFRM * 


akkekk&keak 


Syntax: XFEM <Destination type> C<DES.DATA DICT.BASE> 
C<CEST~SUBSCRIPT.S0UND>1]] <Source Tyoe> 
C<SOURCE DATA OICT~BASE> (€<Source Subscript Bcund>]] 


NOTE: This operator is scheduled to be removec from the 


S“machine. 


Format: 


RHR KKRKKER KKK KKK KEE KKKEKEKKKKEEKEKKARKEEREARKHEARKEKRERMKKKEAKEKEKE 


x 


* * * * 


REM KEKRKEKEE KE HK KEKE KEKE KKEEKK KEKE KE KEK AEKE KEKE KKKEKEKEKKEKEKKKKEKEK 


* LLLL ll wcic cic « * 
‘ OP-Code . . 
* * 
x * 
3 Bits Destination Type * 
x 
QQ» 12 Bits * 
Destiraticn Data Dict Base 


C» 12 Bits 


Destination Subscript Boun 


0» 


* 


* 
* 
i 
* 
* 
* 
* 
* 
d 


3 Bits 
Source Typ 


12 Bits 
Source Deta Dictionary Sas 


Scurce Subscript 8oun 


* * * 
k te * 
& te 
* *x * 
* * x 
ra * 4 
* * * 
* * * 
* * * 
* * * 
* * * 
* * * 
* x x 
e rs te 
* * 

* & 

& * 

e * 

x 

* 

O» 12 Bits * 
d 


BURROUGHS CCRPORATION | . COMPANY CONFIDENTIAL 


COMPUTER SYSTEMS GROUP B1800/B81700 SDL S-LANGUAGE 
SANTA BARBARA PLANT PeSe #2201 2389 
TYPE FIELD 


KEARKEKKHEKAKKEEKKKEREKKARKKKAKERANEKEK 


* * *x * 
KREKKKEKAKRKHKEEREKEKEKAKKKKEKKEKEAKKHEKREK 
* * * 
x * * 
KEAEKKEKHKEKEK KEK K & x 
* x * 
O - Descriptcr is on EeSe * O - Use data oicte. ertry 
* descripticr 
* 

1 ~- Use Data Dictionary * i - Use template in £.5. 
(Data Dict. Entry * apoliec tc cata Cic. 
base follows) * entry. 

* 
KRRKEKEKEKEKKEKKEKEKAKKEKKKKKK 


* 


0 - Not subscripted 
1 - Subscriptede Subscript is on £.S. 


C12 bit subscript bound follows 
data dicte. base) 


Functton: 


ae This cperator transfers information betweer: 
1. Messages Cor parts of messag2s) 
2e Data cortained within Base-Limit and messages 


parts of messages. 


be. The source and destination fields may be of 
following types: 


or 


the 


BUKROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARKA PLANT 


COMPANY CONFIDENTIAL 
BLi6O0O0/E1700 SUL S“LANGUAGE 
P.S. #2201 2389 


TYPE MEANS CF OESCRIPTICN 
1. Baser~Limit data Cescriotor on EVALUATICN STACK 
2e Message Cata dictionary entry number 
3. Message array Cata dictionary entry number ard 
element subscript on the EVALUATION STACK» 
is adced to the cata cicticnary 
entry numter 
4. Part of message The template on the EVALUATICN 
cf message array STACK ts to be applied tec the 
element message which is described by the 
data dictionary entry. This is 
obtained the same as 2 or 3-6 
ce The type field of the destinatior field is used to 
obtain the description of the destinatior field. 
de. The type field of the source field is usec to cbtain 
the description of the source field. 
e. Cata is transferred from the source field te the 
destination field as itn a chéracter to character 


store operation: 


ALPHABETIC INDEX 


ADD 

ADD TIMER» SUBTRACT TIMER 
ADOR 

ADDRESS 

ADDT 

AL 

ALA 

AND 

ARITHMETIC OPERATORS 
ARTITHMETICS 

ARRAY LOAD ADDRESS 
ARRAY LOAD VALUE 
BIN 

BUMP VALUE STACK PCINTER 
BVSP 

CALL 

CASE 

CAT 

CCAD 

COBZ © 

CODY 

COFC 

CDOFM 

COLD 

COLL 

COMP 

CDOPR 

CDRM 

CHARACTER FILL 
CHFL 

CLEAR ARRAY 

CLR 


“CNTR. 


CO-ROUTINE EXIT 

CODE ADDRESSES 

COMM 

COMMUNICATE 

COMMUNICATE WITH GISMO 
COMPONENTS OF THE S*MACHINE 
CONSTRUCT CESCRIPTICR BASE ZERO 
CONSTRUCT OESCRIPTCR DYNAMIC 
CUNSTRUCT DESCRIPTCR FORMAL 


CONSTRUCT DESCRIPTCR FRCM PREVICUS 
CONSTRUCT DESCRIPTCR LEXIC LEVEL 
CONSTRUCT DESCRIPTCR LOCAL OATA 


CONSTKUCT DESCRIPTCR OPERATCRS 


CONSTRUCT DESCRIPTCR PREVIOUS & MULTIPLY 
CONSTRUCT DESCRIPTCR PREVIOUS and AdD 


CONSTRUCT CESCRIPTCR REMAPS 


CONSTRUCT OESCRIPTOR»> FORMAL CHECK 


CONTROL STACK MECHANISM 
CONVERT TO BINARY 


CONVERT TO DECIMAL 
CORGUTINE ENTRY 
CwWG 

CXIT 

CYCL 

CYCLE 

DATA ADDRESSES 
DATA DESCRIPTORS 
DBLK 

CESBLANK 

DEC 

DEL 

DELETE 
DELIMITED TOKEN 
DESC 

DESCRIPTOR 

DISP 

DISPATCH 

OiV 

DTKN 

DUP 

DUPLICATE 

EDI 


ENABLE DISABLE INTERRUPTS 


EQt 
EXCHANGE” 
EXEC 
EXECUTE 
cXIT 


EXIT» ENASLE INTERRUPTS 


EXOR 


EXTENDED ARITHMETIC OPERATCERS 


FOMP 
FouP 
FECH 
FECS 


FETCH COMMUNICATE MESSAGE PCINTER 


FETCHs FETCH ANO SAVE 
FIND DUPLICATE CHARACTERS 


FORCE VALUE STACK 
FVS 

GENERAL 

GEO 

GTR 

HALT 

HARDWARE MONITOR 
HASH 

HASH CODE 

HMON 

IF THEN 

IF THEN ELSE 
IFEL 


3-162 
376) 
3~63 
3764 
1-18 
5765 
3764 
3-61 
3-120 
ame | 
3-120 
3765 
3767 
3~69 
57162 
3-162 
a7 2 
3-70 
3-71 
bad 
Bay a 
S*57 
37-69 
bot oe?) 
3-71 
4-72 
S2TS 
Se 
3-80 
3-54 
37-103 
3-65 
3-19 
3716 
3-163 
372 
3-74 
$=103 
37104 
3774 
3-144 
S= 10:3 


3-104 


3-5 
baa 
3711 
S711 
3-2 
3-75 
a= 12e¢ 
3719 
ae 


ALYrRAGOPiu JINULA 


aeEnwmteanmwewnwaeae ieee 


ILFA 

IN@LINE DESCRIPTOR FORMATS 
INDEXED LOAD ADDRESS 
INDEXED LOAD FIELD ADDRESS 
INDEXED LOAD VALUE 
INTTIALIZE VECTOR 
INSTRUCTION SET 

IVEC 


LENG 

LENGTH 

LEQ 

LFA 

LFAP 

LIT 

LITN 

LOAD ADDRESS 

LOAD ARRAY FIELD ADDRESS 
LOAD FIELD ADDRESS 
LOAD FIELD ADDRESS FROM PREVICUS 
LOAC LITERAL 

LGAD NUMERTC LITERAL 
LOAD NUMERIC ONE 

LOAD NUMERTC ZERO 
LOAD OPERATORS 

LOAD SPECIAL 

LOAD VALUE 

LUGICAL NOT 

LOGICAL OPERATORS 

LSP 

LSs 

MAKE DESCRIPTOR 

MARK STACK 

MARK STACK AND UPDATE 
MDSC 

MISCELLANEOUS CPERATORS 
MKS 

MKU - 

MOD 

MUL 

NEG 

NEGATE 

NEQ 

NEXT OR PREVIOUS ITEM 
NEXT TOKEN 

NOT 

NPIT 


CVERLAY 

OVLY 

PADR 

PAGED ARRAY DESCRIPTORS 
PARITY ADDRESS 

PREL 

PROCEDURE OPERATORS 
PROFILE 

ROCS 

ROIV 

RDOUC 

READ CASSETTE 

RECUCE 

REFER 

REFR 

REIN 

REINSTATE 

RELATED PUBLICATICAS 
RELATIONAL OPERATORS 
RETURN 

RETURN FORMAL CHECK 
REVERSE ARITHMETICS 
RMOD 

RSUB 

RTNC 

RTRN 


SAVE STATE 


SEARCH & SCAN OPERATORS 
SEARCH LINKED LIST 
SEARCH SDL STACKS 
SEARCH SERTAL LIST 
SLL 

SNOL 

SNOR 

SORT SEARCH 

SORT STEP DOWN 
SORT SWAP 

SURT UNBLOCK 


STACK OPERATORS 
STQO0 
STORE DESTRUCTIVE. 


ALPHABETIC INDEX 


STORE NON“CESTRUCTIVE. DELETE 
STCRE NON-DESTRUCTIVE» DELETE 
STORE OPERATORS . 
STRING CONCATENTATION 
STRING OPERATORS 

SUB 

SUB“STRING» THREE PARAMETERS 
SUBSSTRING» TWO PARAMETERS 
SUBSTRING» ONE PARAMETER 
SUBT 

SVST 

SWAP 

THE BASE“LIMIT AREA 

THREAD VECTOR 

TRANSFER MESSAGE 

TRANSLATE 

TVEC 

U8Llk 

UNCC 

UNDO 

UNDG CONDITIONAL 

USE OF THE EVALUATION STACK 
VALUE DESCRIPTOR 

VDSC 

XADD . 

XCH 

XDIV 

XFRM 

XLAT 

XMOD 

XMUL 

XSUB 

XTET 

ZOT 


LEFT 
RIGHT 


